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Os mais importantes 
programas do mercado 

E MAIS 1 1 

• Cuerra na montanha 

• convite aos 
bons vaqueiros 

• Segao western 

• impe<pa a fuga 

• Super-Detetive 

• Funde a cuca v 

• Dr. Kasklin 
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A SYSDATA GANHA 
DINHEIRO FAZENDO 
MICROCOMPUTADORES 
COMO O SYSDATA III. 

ALGUMAS PESSOAS GANHAM 
DINHEIRO COMPRANDO. 



SYSDATA III 

Aqui, tudo o que Voce espera 
de um grande micro. 

Compativel com o TRS-80 
Modelo III da Radio Shack. 

Gabinete, teclado e CPU em 
modulos independentes. 

Versoes de 64 a 128 KBytes de 
RAM, 16 KBytes de ROM. 

Teclado profissional com 
num6rico reduzido e 4 teclas 
de fungoes. 

Sistema operacional de disco 
DOS III ou CP/M 2.2. 

Caracteres gr^ficos. 

Video composto com 18 MHZ 
de faixa de passagem. 

Saida para impressora 
paralela. 

SYSDATA III 
Software disponivel 
variado. Escolha o seu. 

Videotexto (TELESP). 
ProjetoCirandao 
(EMBRATEL). 

Rede de telex. 

Sistema Gerenciador de 
Banco de Dados (SGBD), 

DBASE II. 

Compiladores Cobol, 

Fortran, Pascal, Basic, Forth, 

Lisp e Pilot. 

Editor de textos. Editor de Assembler. 
Desassemblador. 

Debugador. 

Visicalc. 

Wordstar, 
emuitos outros. 










SYSDATA III 
Caracteristicas tecnicas. 
Para aqueles que querem 
saber tudo. 

Total compatibilidade com o 
TRS-80 Modelo III da Radio 
Shack. 

Processador Z-80-A. 
Video de 16 x 64 ou 16 x 32 
(linhasxcolunas). 
Alimentagao de 110 V ou 220 V. 
Teclado alfanum6rico de 
69 teclas. 

Teclado num6rico reduzido 
com 4 teclas de fungoes. 
Gr^ficos com 128 x 48 pontos 
no video. 
Aceita at6 duas RS-232-C 
(Sincronas ou Assincronas). 

Modem (opcional). 
Saida paralela para 
impressora. 
Placa controladora para at6 
4 drives de 5 e 1/4”, dupla 
densidade (180 KBytes por 
face), face simples (dupla face 
opcional). 



Opgoes futuras: 

V ideo compativel 16 x 64, 
16 x 32, 24 x 80 ou 24 x 40 
(linhasxcolunas). 
Expansao at6 256 KBytes 
de RAM. 

Alta resolugao grdfica e cor. 
Interface para acionamento de disco rigido 
(Winchester) de 5, 10 ou 20 MBytes. 
Clock dobrado (4,0 MHZ). 
Total compatibilidade com o TRS-80 

Mod. IV. 
CP/M versao3.0. 



SYSDATA 
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SUMARIO 



W DOMINE AS AREAS DA 
MEM6RIA RAM - 

Conhe^a melhor a estrutura do seu 
micro da linha Sinclair com esta 
rotina, de Claudio de Freitas B. 
Bittencourt, que arruma para voce 
as areas da RAM. 



O SUPER-DETETIVE 

ZtO Quern e o criminoso? Qual 
foi a arma e em que local? 
Descubra a resposta para estas 
perguntas e torne-se o Super- 
detetive neste jogo para a linha 
Sinclair, de Alberto Cezar de 
Carvalho. 



mmemOnicos 

LD OK* 10720 
L 0 RL* ( 14 1 
XOR A 
SBC ML. DE 
JR »C 17 
PUSH DE 
LO ML, (!«)••> 
EX DE.HL 
XOR A 
SBC HL.DE 
POP DE 
LO B.M 
LD C.L 

LO ML. ( 1014 1 


I MTBRPRETA^AO • 

1 0E- 30720 
» HL-RTP 
i BIT Am carry 
l HL-RTP- 10720- 
1 IF **• 0 OOTO 
, 10720 no STAC 
l HL-RTP 
: ML— —OB 
t BIT Am carry 
l ML-10720-RTP- 
, DE- 10720 
j J BC-ML-A 
j NL-EMSP 


REM 1.111 cnart.ru) 
PRIKT RT JS.Ji ’W 

yyyy ■ 

RAND OSR t«»1« 

OOTO yyyy 
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JOGUE EM RITMO 
•JO ASSEMBLER - Chega de 
frusta?ao! Desenvolva e incremente 
jogos em Assembler no seu micro 
da linha Sinclair, usando duas 
simples rotinas que Giangiacomo 
Ponzo Neto ensina a implementar. 

C/T OS JOGOS COMERCIAIS- 

30 Um assunto muito serio, que 
merece os comentarios de Renato 
Degiovani, e uma tabela 
especialmente feita pela equipe de 
MS com tudo sobre jogos: os mais 
importantes existentes no mercado, 
os mais vendidos e ainda uma 
relagao de acessorios disponiveis. 



8 GO, UM DESAFIO MILENAR - Programa 
de Waldir Ferreira de Arruda, para a linha 
Sinclair. 

\ \ UM CONVITE AOS BONS VAQUEIROS - 
A*J Programa para TRS-80 III, de Marcos 
Fernando Ribeiro Ferraz. 

FUNDE A CUCA - Programa para Apple de 
Claudio Coelho Lima. 



DR. KASKLIN E OS FAGOCITONS - 
Programa para TRS-80, de Rui Ribeiro de 

Bastos. 



LANCE OS DADOS E... BOA SORTE! - 
iaO Programa de Marco Sergio Furtado Valeriano, 
para micros da linha Sinclair. 

IMPEQA A FUGA DAS NAVES INIMIGAS 
- Programa para a linha TRS-80 I, de Silvio 
Cavalcanti de Araujo. 

DEFENDA-SE - Programa para a linha 
Sinclair, de Tadeu Curinga da Silva. 



APERTE OS CINTOS E PILOTE NO 
ESCURO! - Programa para a linha Sinclair 
de Claudio Costa. 



SESSAO WESTERN - Programa para a 
linha Sinclair, de Claudio Costa. 



GUERRA NA MONTANHA - Programa 
para a linha Apple, de Andre Koch Zielasko. 



MISSAO RESGATE - Programa para micros 
da linha Sinclair, de Cldudia Eleone Gomes. 



A,D,B... ORDENE AS LETRAS - Programa 
para a linha Sinclair, de Roberto dos Santos 

Silva 



O SOBREVIVENTE - Programa de'Sergio 
Gouveia, para a linha Sinclair. 



CATALOGO DE DIRETORIOS - Utilitdrio 
para TRS-80, de Carlos Roberto Cerri. 
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4 EDITORIAL 


25 MENSAGEM DE ERRO 


71 CLASSIFICADOS 
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72 DICAS 
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V amos entrar em 85 com o pe 
direito. Muitas mudanqas jd 
podem ser pressentidas em 
todos os nil e is da vida nacional, e 
MICRO SISTEMAS nao quer, deci- 
didamente, deixarde aproveitar essa 
onda de re nova (do para, ela tarn - 
hem, se reciclar e, assim, atender ca- 
da vez mats a seus leitores. 

Jd outras vezes tive oportunida- 
de de agradecer, deste mesmo espa- 
(o, a miens a colaboraqao prestada 
por nos sos leitores no sucesso edito- 
rial alcati(ado por /VI 5. Neste noto 
ano, contudo, uma aprecia(do do 
quanto nossa revista evoluiu me le- 
va, mats uma vez, a faze-lo: de jato, 
jamais poderemos pensar em A1S e 
no papel que ela tern desempenhado 
na comunidade usuaria de micros 
sem considerar o enorme apoio 
prestado por nossos leitores e ami- 
gos. Em 85, pretendemos mudaral- 
gumas coisas, para melhor. 



% E ca estamos, come(ando o ano 
por nossa jd tradicional edi(ao de jo- 
gos. Aproveitando um pertodo de fe- 
rias escolares, presenteamos o pes- 
soal com um conjunto de programas 
de lazer que certamente vai agradar. 
Procuramos cobrir as mats signi/ica- 
tivas linbas de equipamentos pes- 
soais, suprindo-as com jogos inte- 
ressantes, todos devidamente testa- 
dos em nosso CPD, de listagens cur- 
ias — para facilitar seu trabalho — 
e efeitos surpreendentes. 

Ressaltamos ainda uma materia 
bastante completa, onde voce se in- 
formara sobre os jogos mais farno- 
sos do mercado, rnuitos dos quais fo- 
ram listados, a partir de pesquisa 
realizada por nossa equipe, para que 
voce possa comparar os pre(os e 
compatibilidades de cada um. 

# Gostaria ainda de ressaltar aqui 
nosso contentamento em ter, na edi- 
(ao passada, finalizado a implemen - 



ta(ao do SGM do Microbug, brilhan- 
temente coordenada por nosso cole- 
ga Renato Degiovani. Com isto, en- 
trant os em nova fase, que contara, 
tenho certeza, com a participa(do de 
todos aqueles que acompanharam o 
projeto e hoje tern nas maos uma po- 
derosa ferramenta, frttto de a(ao ine- 
dita na area editorial brasileira que 
bem rejlete nosso objetivo: fazer de 
MS um vetculo dindmico que contri- 
bua para uma maior inter a(ao entre 
leitores e revista, promovendo um 
uso intenso e racional dessas rndqui- 
nas que nds temos o privilegio de pi- 
lotar. E vamos ao uso: divirtam-se 
com os jogos! 



JIMt 'ty'uuj**' 
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SOFT WA R E 

apresenta novas titas com 
desafios emocionantes para voce! 



PARA EOUIPAMENTOS COM LOGICA SINCLAIR 



1. VALKIRIE 

Pilote a nave 
Valkirie e parta 
em busca de dez 
castelos perdidos. 
(Exclusividade 
Ciberne, por 
Divino C.R. 
Leitao). 

E mais: 
GUERRILHA 
C6SMICA 
eZOR. 




2. MERCADOR DOS 

sete mm/r 

MARES 

No sdculo XIX 
vocd percorre o 
mundo a bordo 
de seu navio, em 
busca de bons 
negdcios. 

E mais: 

CORRIDA MALUCA e PINBALL 
(Exclusividade Ciberne, por Divino 
C.R. Leitao). 





3. SUBESPAQO 

Implacavel 
cagada espacial. 
Totalmente 
grafico. 

E mais: 

CAVERNAS DE 
MARTE 
(Exclusividade 
Ciberne, por 
Divino 



C.R. Leitao) e COMBOIO 



ESPACIAL. 



4. DEFENSOR 3D 

Livre nosso 




planeta de uma 
invasao 
alienigena. 

Fantasticas 
simulagdes 
tri-dimensionais. 

E mais: Q'BERT 
(Exclusividade 
Ciberne, 
por Divino C.R. Leitao) e 
ASSALTO. 



5. ROT I - PLUS 

• s.o.g. 

operacional, com m 

linguagem LDuB 

gratica. Infinitas 
opgdes de uso. 

Totalmente em I 

cddigo de * ^ 

maguina 

(Exclusividade Ciberne, por J. Magal). 

• MERGE 



Possibilita a jungao de varios 
programas, uns aos outros. 



6. APLICT 

• COMP-CALC 

Rapido, eficiente e totalmente em 
cddigo de maquina. A melhor versao 
do ja famoso Visi-Calc. 

• COMP-ARQ 

Programa gerador de arquivos. 
Totalmente em cddigo de maquina. 
Modele fichas e as acesse pelo 
campo que quiser. 

• COMP-TEXTO 

De facil manipulagao, totalmente em 
cddigo de maquina. 




PARA EQUIPAMENTOS COM L6GICA TRS-80 



ISSHDU 






1 . SIMULA DOR DE VOO 2. XADREZ 

Totalmente ® ma ‘ s 

grafico e tradicional dos 

acornpanhado jogos, 

de livro de reeditado em 

instrugdes, com UL yy v novae 

diagramas, . KA • brilhante 

tabelas etc. . versao. 

E mais: A E mais: 

PINTOR PATRULHA 

MALUCOe ARMADA 

O DESAFIO DA e PANICO 

GALINHA. (totalmente sonc 






‘Pusoff, 



a ? a Aranha i 4 c rm «90es; 
W - C ® 20030 



PARAGRAFICS 






3411 LET A = A+1 




O sorteedo deste mAs, qua racebarft uma 
aumatura da um a no da MICRO 
SISTEMAS, A ValArio F. Laube, da Santa 
Catarina. 



BATALHA NAVAL 



No programa Batalha naval, publicado 
am MS n? 32, pAg. 70, encontrei alguns er- 
ros na listagem a a ausAncia de duas linhas: 
faltou uma aspas no final da linha 2790; nAo 
foi colocado um AT ap6s o PRINT da linha 
5340; e estas duas linhas nAo constaram do 
programa: 

8035 PRINT AT 19,1;"HIDROAVlAO 3 
PARTES” 

8037 GOSUB VAL "8100” 

Quern digitou o programa notou que, 
quando estava jogando no nfvel 2 ou 3, e o 
micro estava perdendo (ou empatando, no 
caso do nfvel 3), o programa parava acusan- 
do erro 3 na linha 5750. Isso acontecia por- 
que estavam faltando linhas no programa 
publicado. Fiz estas alteragdes que deram 
certo: 

5744 IF CODE A$ (SA.2 TO)-37 = 0 

5745 LET C = CODE A$ (SA.2 TO)-37 

5746 LET A$ (SA) « "**” 

5747 IF P$ (1.0 «" HB " OR P$ 
(1,0 = THEN GOTO VAL "5743” 

5748 GOTO VAL "7000” 

AlAm disso, gostaria tamWm de fazer 
uma sugestAo para MS: publiquem mai* jo- 
gos que nAo sejam repetitive! e que usem va- 
lores randftmicos, tornando-os, assim, com 
maior dificuldade para se viciarem. 

Francisco Roberto Costa 
SAo Carlos-SP 

Inicialmente, Francisco, sua sugestSo 
tambAm A nossa e a estendemos aos leitores 
que colaboram conosco. Com relagfo Ss 
suas observances sob re o Batalha naval, qua 
aliAs foi tastado am nosso CPD a funcionou 
(a funciona) parfeitamente, mandamos suas 
consideragdes para o autor, nosso amigo 
a colaborador Waldir Ferreira da Arruda. Eis 
os comentArios que recebemos do Waldir: 
"Raalmenta, nas linhas 2790 e 5340 es- 
tSo faltando uma aspas e o AT, raspectiva- 
mante. As linhas 8035 a 8037 nio const am 
do programa porqua achei desnecessArio co- 
locA-las, visto qua as caracterfsticas do hi- 
droaviSo perm item facilmente a verificagAo 
da que ela 6 composto de trAs partes. 

Quanto ao erro 3 na linha 5750, este A 
descrito no manual do equ ip a men to como: 
"A matrix n*o contAm o elemento especif i- 
cado". Portanto, um dos valores da linha 
5750, isto A, ou L ou C, deve ter sido digi- 
tado com valor inferior a zero ou superior a 
15. Para que o colaga Francisco possa iden- 
tificar melhor onde errou na digitapio, lista- 
rai as provAveis linhas, e suas principals fun- 
pCas, am qua este erro deve ter ocorrido: 

20 DIM M$(15,15) - matrix do micro 

30 DIM P$(15,15) — matrix do humano 

2815 DIM A$(38,2) - matrix da 38 ele- 

mentos com tama- 
nho de 2 caracteres 

2816 LET A = 0 — xara contador 




— increments conta- 
dor 

3412 LET A$(A) = L$- move linha e colu- 
na (L$) para a ma- 
trix A$ (coordena- 
das das papas do 
humano) 

5670 e 5680 — gera numero ran- 

dAmico entre 1 e 
15 

5741 — gera ntimero ran- 

dbmico entre 1 a 
38 

Com referAncia A I6gica dos nfveis da di- 
ficuldade, se o micro estivar perdendo (no 
nfvel 2), ou se estiver empatado ou perden- 
do (no nfvel 3), o programa passarA auto- 
maticamente para a linha 5741, que pega 
um numero randOmico antra 1 a 38, qua A 
a quantidade de pepas existentes de cada jo- 
gador. A linha 5742 acha uma coordenada 
da matrix A$ qua n8o contenha os ou 
seja, encontra uma coordenada do humano 
que ainda nAo foi acertada pelo micro, e mo- 
ve estas coordenadas para 'linha e coluna' 
nas linhas 5743 e 5744. Na linha 5750, o 
"* *" A movido para a matrix A$, isto pa- 
ra marcar as pepas jA atingidas pelo micro. 
E tanto fax que a linha 5743 tenha a sintaxe 
LET L = CODE A$(SA)-37 ou LET 
L = CODE A$(SA,1 TO 1)-37, pois o re- 
sultado serA o mesmo. 

Na linha 5750 A movido o carAter GRA- 
PHICS SHIFT A para a matrix do huma- 
no. Assim, sA poderA dar erro 3 nesta li- 
nha, como jA citei, se L ou C tiverem um va- 
lor manor que zero ou maior do que 15. E 
para que isto acontecesse, seria preciso que 
a matrix A$ possuftse caracteres menores 
do que A ou maiores que 0, mas esta consis- 
tency A feita pelo programa nas linhas de 
3170 a 3230, a movidas (uma a uma) para 
a matrix A$ (nas linhas 3411 a 3412) so- 
mante as coordenadas dentro do limite da 
matrix P$, que foi definida na linha 30. 

Espero que esta explicapAo ajude o Fran- 
cisco a encontrar o seu erro ou efetuar as al- 
terapdes que daseje (pelo menos quanto aos 
nfveis).” 

Waldir Ferreira de Arruda 
SAo Paulo-SP 



EDITORES DE TEXTO ~~j 



Gostarlamos de parabenizA-los pela ma- 
tAria Editores de texto, publicada em MI- 
CRO SISTEMAS n9 36, setembro de 84. 
Entretanto, alguns esclarecimentos tornam- 
se necessArios: o processador de texto Edi- 
tax, que A marca registrada e exclusive da 
Microarte Software, de SAo Paulo, A um pro- 
cessador para a linha Apple e atualmente es- 
tA em sua terceira versAo: o Editex III. 

0 Editex III foi especialmente desenvol- 
vido para o equipamento Microengenho 2, 
e tern todos os caracteres de nossa Ifngua, 
bem como separapAo silAbica, dicionArio in- 
terno programAvel, conferAncia ortogrAfica 
on-line, dupla coluna automAtica, notas de 
rodapA, negrito, sublinhado, integrapAo com 
folha eletrAnica e banco de dados, 10 mo- 
dos de alinhamento e vArios outros coman- 
dos de edipAo e impressAo (...). 

£ importante notar que ele A o linico 
processador de textos para a linha Apple de- 
senvolvido no Brasil, sendo que a Microarte 
possui a fonte do sistema. Os demais proces- 
sadores sAo tradupfies ou cApias americanas 
e possuem menor capacidade que o Editex 
III. Existe uma versAo (simplificada) deste 
mesmo processador para outros computado- 



res da linha Apple, que tern gerador de ca- 
racteres minusculos e tecla SHIFT ativa: o 
Editex 1 .4, que acentua tambAm em vArias 
impressoras, sem precisar de nenhuma adap- 
tapSo de hardware (...). 

Luis A. M. Meloni e Luiza H. C. Meloni 
Diretores da Microarte Software Ltda. 



ParabAns pela matAria sobre Editores de 
texto, publicada em MS nP 36: realmente 
MICRO SISTEMAS continue cada vez me- 
lhor. Todavia, temos alguns comentArios a 
fazer: 

N6s nAo fomos consultados ou procura- 
dos por ninguAm da MS antecipadamente 
sobre esta matAria e, assim, nAo sabemos de 
onde surgiu a c6pia do Editex da Monk que 
vocAs analisaram. Pelo texto da anAlise, de- 
preende-se que A a versAo de 1982 ou 83 de 
nosso editor de textos, que se chamava, na 
Apoca, Editex. 

Isto criou dois problemas: um para n6s, e 
outro para a Microarte Software. Para n6s, 
porque o produto analisado estA defasado 
no tempo, e temos hoje outro editor de tex- 
to, com outro nome, lanpado no infeio de 
84, jA em sua segunda versAo que, alAm de 
nAo ter as deficiAncias apontadas na matA- 
ria, tern outros recursos favorAveis. E para 
a Microarte porque esta empresa A, desde ju- 
nho de 84, a detentora da marca Editex (...). 

Quanto a matAria em si, como jA disse- 
mos, estA muito boa, principalmente consi- 
derando o Arido panorama da divulgapAo de 
software pela imprensa especializada. Gosta- 
rfamos apenas de complementar que deve- 
riam ser enfatizados os software genuina- 
mente nacionais, como o da Monk e outros, 
porque isto A mais educativo e esclarecedor 
para o publico, mesmo porque os editores 
de texto americanos sAo de diffcil utiliza- 
gAo, prova disso A que a maioria dos usuArios 
do nosso editor sAo pessoas que jA tentaram 
usar, sem sucesso, os editores americanos, 
como, aliAs, concorda o Sr. Antonio Macchi 
Jr., citado na reportagem de MS. 

No mais, continuem sempre com suces- 
sos e progressos na MS, e de nossa parte, 
permaneceremos A disposigAo para qualquer 
colabor agAo. 

Guilherme Quandt de Oliveira Jr. 
SAcio-gerente da Monk Micro InformAtica 
Ltda. 



Com' referAncia ao artigo Editores de 
texto, publicado em MS n9 36, na pAgina 29 
foram publicadas informagdes sobre o que a 
Polymax oferece em termos de produtos pa- 
ra processamento de textos, mas algumas 
destas informagfles estavam incorretas e, as- 
sim, fornecemos agora as corregdes: 

A Polymax oferece dois produtos para 
processamento de textos, o Poly 105 WP e o 
Poly 301 WP. As diferengas entre eles sAo: 

— prego (CPU + teclado + vfdeo + dois dri- 
ves): o Poly 105 custa 850 ORTN, com flo- 
ppy de 5 1/4"; e o Poly 301 tern o prego de 
1200 ORTN, com floppy de 8". 

— armazenamento: o Poly 105 usa duas 
unidades de floppy 5 1/4", com capacidade 
individual de 250 Kb; o Poly 301 utiliza atA 
quatro unidades de disco flexfvel de 8”, 
com capacidade individual de 500 Kb, e po- 
de utilizer ainda disco rfgido tipo Winches- 
ter de 5 ou 10 Mb ou fita magnAtica, sendo 
que a capacidade total do sistema vai atA 
40 Mb. 

— impressora utilizada: ambos equipamen- 
tos usam a impressora de margarida Poly- 
print 55, ou 55 CPS, bem como impresso- 
ras matriciais com "near letter quality o 



Poly 105 WP pode tamMm utilizar mAqui- 
na de escrever eletr&nica como safda de im- 
pressAo. E a impressora Polyprint 90 nAo A 
uma impressora de margarida, A uma impres- 
sora matricial bidirecional de 90 CPS 
Ricardo de Deus dos Santos 
Polymax InformAtica S. A. 

Inicialmente, queremos agradecer pela 
atenta leitura da nossa MICRO SISTEMAS, 
bem como pela gentileza de externarem o 
retorno provocado por nossa reporta gem 
Editores de texto. Gostarfamos, entretanto, 
de destacar que MICRO SISTEMAS reitera- 
das vezes procurou fabricantes e software- 
houses, inclusive a Monk, para que colocas- 
sem seus produtos * nossa disposigio para 
eventual anAlise e futures reportagens. Infe- 
lizmenta, nem todos compreenderam o al- 
cance de nossas solicitapbes. Assim, para efe- 
tuar a reportagem e anAlise em questao, uti- 
lizamos o material a que tivemos aces so 

Aproveitamos esta oportunidade para en- 
fatizar, mais uma vez, uma idbia simples que 
resume a nossa atuagAo editorial: os fabri- 
cantes e software-houses criam produtos pa- 
ra os usuArios de microcomputadores, e 
MICRO SISTEMAS, com uma visio crltica 
de usuArio, pois tambAm o somos, repassa 
para seus leitores/usuArios as caracterlsticas 
que realmente interessam ao consumidor fi- 
nal. Portanto, abordamos aquilo que vive- 
mos e ao qual tern os acesso, sempre com a 
preocupagio de ampliar e aprofundar estas 
informagbes. 



INTERESSE EM HARD 



Atualmente MICRO SISTEMAS A uma 
das mehores publicagbes na Area de micro- 
computadores. Para ficar excelente, deveria 
dar uma maior atengAo ao hardware de mi- 
cros, e artigos como os que sai'ram em MS 
n9 30 deveriam ser f ixos (...). 

Gostaria de propor alguns projetos em 
hardware que seriam interessantes: aciona- 
mento de gravador para TK-83/85 e CP-200; 
gerador sonoro; bip (tecla acionada); inter- 
faces (IN/OUT); conexAo para cartuchos 
EPROM; gravador de EPROM no TK; ex- 
pansbes de membria; conversor AD/— DA; 
interface para cassete com compensagAo au- 
tomAtica de volumes; alta resol upSo grAfica 
etc., sendo que o gravador de EPROM e a 
conexAo para cartuchos de EPROM abriri- 
am um vastissimo campo para software uti- 
litArio. 

ValArio F. Laube 
Schroeder-SC 

Muito bom, ValArio. Suas propostas sAo 
objetivas e interessantes. N6s endossamos a 
sua lista e a repassamos agora para nossos 
leitores e colaboradores. S6 tern um porAm: 
expansAo de membria e alta resolupAo grA- 
fica nbs jA publicamos em MS n? 37, uma 
edipAo praticamente voltada para o hard- 
ware. DA uma espiada, ok? 




HA muito tempo venho lendo MICRO 
SISTEMAS e, creiam, foi muito util para 
mim no trabalho, na escola e tambAm na 
criapAo de programas. As dicas sobre prog Ta- 
rn apAo, as explicapGes tAcnicas e os truques 



que podem ser efetuados em cada micro fo- 
ram publicados de forma bem simples e for- 
mam um arsenal de idAias que nenhuma em- 
press fabricante de micro conseguiria colo- 
car no manual de seu equipamento. 

JoSo do Prado Arnoldi 
SAo Paulo-SP 



Sou possuidor de um TK-85 e estou sa- 
tisfeito com o 6timo nfvel desta revista, 
principalmente pela atengAo que dispensam 
aos usuArios da linha Sinclair, como, por 
exemplo, com o sensacional MICRO BUG: 
finalmente surgiu um poderoso instrumento 
para se trabalhar com a famosa linguagem 
Assembler, desvendando seus mistArios e pe- 
culiaridades. 

MICRO BUG trouxe novos conhecimen- 
tos para mim e para muitos, que apenas 
compilavam os programas em Assembler de 
revistas, sem entender o real funcionamento 
dos mesmos. Parabenizo o CPD de MICRO 
SISTEMAS e seu coordenador Renato De- 
giovani pelo excelente trabalho desenvolvi- 
do, e espero que este nfvel alcanpado suba 
ainda mais. 

Esdras Prado 
Santos -SP 



VIAGEM FANTASTICA 



Venho por meio desta informar-lhes que 
o programa Viagem fantistica, publicado em 
MS n9 34, pAg. 37, estA com erro. Este erro 
ocorre na segunda parte do bloco, pois, 
quando digitado, simplesmente invade a se- 
gunda linha REM, juntando-a com a primei- 
ra. Pepo por favor que me enviem ou publi- 
quem aonde estA o erro para que eu possa 
rodar o programa, que parece ser um jogo 
muito interessante. 

Gostaria de fazer tambAm, mais que uma 
sugestAo, um pedido, rtAo s6 em meu nome 
mas em nome daqueles que estAo querendo 
ingressar neste universo maravilhoso que A a 
InformAtica: gostaria que implementassem 
uma segAo voltada para a Area de empregos, 
onde n6s iniciantes pud As sem os saber em 
que firmas poderfamos estagiar. Acho um 
descalabro uma empresa pedir que um esta- 
giArio tenha experiAncia anterior, pois se 
ninguAm nos dA uma chance, como vamos 
adquirir experiAncia? 

Sugiro tambAm que fapam um tira-tei- 
ma com o programa Serra pelada, pois este 
ainda apresenta defeitos. Como exemplo, 
citarei apenas um: quando entramos no ar- 
mazAm e compramos uma picareta, ou ou- 
tro objeto, o programa dA a mensagem "O 
dono A muito forte e nAo vai gostar disso". 
Acho isso um erro, afinal, a mercadoria jA 
foi comprada e nem estamos mais dentro do 
armazAm. 

Gostaria tambAm de parabenizar-lhes 
pelo projeto MICRO BUG, pois sei que A 
uma iniciativa pioneira (pelo menos em ter- 
mos de Brasil) e, como nAo poderia deixar 
de ser, os pioneiros sAo, nada mais nada me- 
nos, do que os representantes da melhor, 
primeira e mating fvel MICRO SISTEMAS. 
Carlos Eduardo Lange 
SAo Bernardo do Campo -SP 

Antes de mais nada, Carlos, a equipe 
agradece os elogios. Com relaglo, no entan- 
to, ao programa Viagem fant&stica, nAo 
existe nenhum erro, exceto o publicado na 
Mensagem de Erro de MS n? 37, que re- 
comend a a eliminapAo da Ultima linha do 
bloco em Assembler, a linha 16850, que foi 



publieada indevidamente. NAo hA mais ne- 
nhum erro, e o programa foi testado em nos- 
so CPD (a. As vezes, quando dA um tempi- 
nho, nbs tambAm viajamos com este jogo). 
Confira cuidadosamente a sua digitagio e 
faga exatamente como o texto manda, prin- 
cipalmente com referAncia A criapAo de li- 
nhas REM, com os caracteres que estAo in- 
dicados. Depois nos escreva contando as 
suas sen sa$6es nesta viagem, ok? 

Com relagao ao seu pedido/sugestAo, ele 
estA anotado, mas nAo depends exclusive- 
mente de nbs, mas muito mais das empresas 
que utilizam programadores. Mesmo assim, 
sua sugestAo jA faz parte da nossa pauta de 
sugestbes de leitores, para anAlise sobre a 
possibilidade de realizagAo. NAo se preocupe 
que todas as sugestbes que recebemos sio 
discutidas e analisadas e, quando o leitor 
menos espera, IA esti sua sugestAo concreti- 
zada. Aguarde. 

Quanto ao programa Serra pelada, tam- 
bAm nAo hA erro. E aceite o desafio que este 
adventure faz: garimpe mesmo atA encon- 
trar o ouro! 




Quero comunicar-lhes o meu crescente 
entusiasmo com MICRO SISTEMAS. Sou 
usuArio de um TK-85 e esta revista vem 
dando grandes presentes para mim e para os 
outros usuArios. Foi uma idAia sensacional 
o MICRO BUG, e espero que continuem 
com ele atA atingirem todos os objetivos 
propostos no primeiro artigo do MICRO 
BUG (em MS n9 31), como o disassembler, 
o compilador etc. 

Achei tambAm excepcional o Editor 
Assembler, publicado em MS n9 33, de Luiz 
Imbroisi Filho. Para nbs, iniciantes em lin- 
guagem de mAquina, artigos e programas co- 
mo estes que citei sAo de grande ajuda. Meus 
parabAns aos autores. PorAm, sb senti falta, 
no Editor Assembler, da possibilidade de 
utilizagAo de labels, porque A enfadonho ter 
que calcular vArios enderegos relativos e ab- 
solutos (CALLs, JOs e JRs da vida). Fica 
aqui a sugestAo para o Luiz ou outro leitor 
que tenha conhecimento da estrutura do 
programa. Seria interessante tambAm se 
transform as sem o Editor Assembler em um 
mbdulo do MICRO BUG. 

Alexandre Pfeifer 
Divinbpolis-MG 

Sendo esta a melhor revista sobre micros 
no Brasil, deixo a minha sugestAo : gostaria 
que, alAm de micros nacionais, vocAs publi- 
cassem tambAm alguma matAria sobre os im- 
portados, jA que eu, e muitas pessoas, sen- 
timos a falta de uma edigAo 'Brasileirai tra- 
tando deste assunto e, por isso, somos obri- 
gados a recorrer A publicagbes estrangeiras. 
Marco Antonio Milani 
SAo Paulo-SP 

(...) 0 que vocAs pensam de um artigo so- 
bre monitores? Do mesmo tipo do que vocAs 
jA fizeram com computadores, com uma ta- 
bela de caracterfsticas, conteudo, cor, pre- 
go em ORTN etc. 

AndrA G. Velloso 
Rio de Janeiro-RJ 



Envie suas sugestbes para MICRO 
SISTEMAS. Elas serAo anotadas em nossa 
pauta e procuraremos, na medida do 
possfvel, viabilizA-las. 



Voce vai precisar de muita perspicicia para sair vitorioso deste inert vet jogo desenvolvido para micros 
da /inha SINCLAIR. Atengao: voce est4 diante de um mini campo de bata/ha, cuidado com o inimigo\ 




GO, um desafio 

Waldir Ferreira de Arruda 



milenar 



N uma interpreta^o bem oci- 
dental, podemos dizer que 
este 6 um wargame de 3000 
anos, jd que foi cultivado en- 
tre os Chineses, tanto como jogo de adi- 
vinhasdo como desafio intelectual (usa- 
do at<f para fins politicos), desde os re- 
motos 2300 anos A.C. 

Este jogo foi desenvolvido para ser jo- 
gado por duas pessoas, com micro exer- 
cendo apenas a fun?ao de monitor. A 
partida tern infeio assim que os jogado- 
res escolhem as suas pedras: pretas ou 
brancas, sendo que as brancas possuem 
o privilegio de iniciar. O objetivo de 
ambas as pedras 6 cercar as inimigas (as 
brancas devem cercar as pretas e vice- 
versa) e conquistar o maior numero pos- 
sfvel de territbrios. O tabuleiro possui 
361 cruzamentos de linhas, portanto, 361 
pontos, e cada um destes pontos 6 con- 
side rado um territbrio. 

A cada pedra inimiga cercada, ganha- 
se 2 pontos, e a cada territbrio conquis- 
tado, apenas 1. Caso uma pedra seja co- 
locada em territbrio inimigo, este ultimo 
perde os pontos que foram conseguidos 
em virtude desta conquista, pois houve 
uma invasSo de territbrio. E inicia-se as- 
sim uma nova luta para expulsar o inva- 
sor. Se acontecer de um jogador colocar 
uma pedra sua em um territbrio que 
lhe pertencia, perderd 1 ponto, aldm de 
disperdi 9 ar uma pedra numa jogada inu- 
til. 

Cada jogador tern direito a 180 pedras 
e, ao tdrmino destas, vencerd a partida o 
jogador que obtiver mais pontos. Por is- 



so, 6 bom evitar jogadas em territbpos 
perigosamente cercados. Eis um exem- 
plo de situa^ao perigosa: se jogarmos em 
um territbrio ganho pelo inimigo, conse- 
guiremos tirar os pontos ganhos por ele, 
mas em compensa^ao gastamos uma pe- 
dra. Se este territbrio valer apenas 1 pon- 
to no tabuleiro, qualquer lugar do tabu- 
leiro que o inimigo coloque a sua pedra 
implicard na elimina^ao de nossa pedra, 
quer dizer: o inimigo recupera os seus 
pontos e nbs perdemos uma pedra. Mas 
se o territbrio a ser conquistado for 
maior, poderemos ter uma boa luta para 
reconquistd-lo. 

As pedras inimigas podem ser cerca- 
das na quantidade desejada e em qual- 
quer dire 9 ao. Para que uma ou mais pe- 
dras sejam consideradas mortas, estas 
deverdo estar totalmente cercadas, ou 
sem nenhum territbrio entre elas. 

Qualquer pedra pode ganhar a quan- 
tidade de territbrio que desejar, basta o 
inimigo permitir. Tudo ird depender da 
forma de ataque e defesa de cada um, 
afinal de contas, este 6 um jogo de estra- 
t£gia. Cada jogador deve desenvolver 
sua prbpria tdtica, seja partindo para ci- 
ma do inimigo ou apenas conquistando 
territbrios. 



O PROG RAMA 



Antes de comerilarmos o programa 
propriamente dito, 6 interessante que se- 
jam esclarecidos alguns aspectos impor- 
tantes da digita 9 So dos blocos Assembler. 

A execu 9 So do programa em Assem- 



bler tern que funcionar na modalidade 
FAST pois utiliza o par de registros IY. 

Para a cria 9 ao da linha 20 REM 

com 2520 bytes, deve ser utilizado o 
montador de REM publicado em MICRO 
SISTEMAS nP 30 ou o MICRO-BUG. £ 
import ante observar que a linha REM 
deve ser a primeira do programa e os seus 
361 bytes tern que ser o caracter ponto 
( . ) . Portanto, se for utilizado o montador 
de REM, faz-se necessirio dar o coman- 
do direto POKE 16542,27 antes de criar 
a linha REM, pois assim o montador ao 
inv£s de criar UNS criar a PONTOS. Caso 
esta modifica 9 ao nao seja feita, deve ser 
criada entao a linha 20 REM, com todos 
os 2520 UNS, digitando em seguida os 
blocos em Assembler, e ao t^rmino des- 
tes comandar diretamente (via teclado) 
RAND USR 18045 (d claro que tendo a 
certeza de digita 9 ao correta). 

No momento em que se for criar a li- 
nha REM, seja com a utiliza 9 So do mon- 
tador de REM ou do MICRO-BUG, 6 
muito importante que o comando RAND 
USR 18045 seja dado apbs a digita 9 ao 
dos blocos em Assembler, mas tamb^m 
apenas neste momento, depois nao mais 
ser2 necessdrio. Isto se deve ao fato de 
que o comando RAND USR 18045 jo- 
ga pontos (.) nos primeiros 361 bytes, e 
branqueia os prbximos 24 bytes apbs os 
361 pontos. Estes 24 bytes s§o utiliza- 
dos como contadores e como controle 
de partidas e os 361 bytes como matriz 
e montagem da tela. 

A parte em BASIC nSo tern nenhum 
segredo, basta apenas digitd-la sem maio- 
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res detalhes. 0 unico particular 6 que a 
partir da linha 9000 do BASIC foi desen- 
volvido um programa que serve para con- 
ferir a parte em Assembler que foi digi- 
tada. A sua utilizagao 6 simples: digite 
GOTO 9000 que o programa pedird o 
enderego initial e o final do bloco que 
se deseja conferir. Apesar de se perder 
um pouco de tempo, 6 bom utilizar este 
programa para evitar surpresas na hora 
de executar o Assembler. 

O tabuleiro do GO possui 19 linhas 
por 1 9 colunas, ambas marcadas com as 
letras de A at 6 S. Para se colocar uma 
pedra numa determinada posigao, deve- 
se digitar linha/coluna, por exemplo: 
linha H e coluna I, digitando-se entao 



HI e ENTER. Para deletar n5o se deve 
usar SHIFT DELETE e sim o carater 
ponto (.). 

0 programa controla de quern e a vez 
de jogar atraves do controlador de pon- 
tos. Jogara aquele que tiver a cor de sua 
letra invertida, ou seja, se a vez for das 
pretas (x), a letra x Heard invertida. To- 
dos os lances sao conferidos pelo progra- 
ma, dando mensagem de erro na posigilo 
21,0. Para cada lance correto 6 pedido 
uma confirmagao, a qual deve-se res- 
ponder S ou N. Se a resposta for S, o 
lance 6 efetuado, se for N a pedra 6 reti- 
rada do tabuleiro, sendo portanto solici- 
tada uma nova jogada. £ importante ob- 
servar que todas as perguntas feitas pelo 



GO em BASIC 



301REM UALDIP F. ARRUDA 
. 05/06/84 

40 REM *-*-*-*-*-*-*-*-*-*-*-* 
* * 

* ESTE PROGRAMA * 

* E* DEDICRDO R0S MEUS* 

* FILHOS BPUN0/DENIS * 

* * 
+-*-*-♦-*-*-*-*-*-*-*-* 

50 G0SUB 1600 
90 PRND U5R 16900 
100 LET U =USR 18073 
110 IF U<'0 THEN GOTO 1000 
115 PRND U5P 16900 
120 G0SUB 500 
130 POKE 18597.52 
140 LET U=USR 18600 
150 IF U<>0 THEN GOTO 2000 
200 POKE 16860. (PEEK 16880) +1 
230 FAST 
240 G0SUB 800 
250 G05UB 500 
260 SL0U 

270 POKE 18597,61 

280 LET U»USP 18600 

290 IF U<0 THEN GOTO 2000 

340 POKE 16379, (PEEK 163791+1 

370 FAST 

380 GOSUB 800 

390 GOSUB 500 

400 SLOU 

405 IF PEEK 16879 > =160 THEN GOT 
0 1700 

410 GOTO 130^ 

510 PRND US^1S220 
540 PPINT RT 6 26, PEEK 16392*25 
6 + PEEK 16891; " 

550 PRINT RT 10. 26. PEEK 16890*2 
56+PEEK 16389." " 

555 PRINT RT 14 . 26 . PEEK 16830," 
" ; RT 15.26. PEEK 16879;" " 

580 RETURN 
300 PEH RES 
810 PRND U5R 16900 
820 PRND USP 16986 
830 PRND USP 16957 
840 PRND USP 17396 
850 PRND USR 16957 
860 RETURN 

1000 PRINT RT 21 .0; " (S /N) - PRPR 

CONTINURP R PARTIDA' 

1010 IF INKEY $ = " S" THEN GOTO 104 
0 

1020 IF INKEY*=”N" THEN GOTO 110 
0 

1030 GOTO 1000 

1040 LET NPxPEEK 16879 

1050 LET NB=PEEK 16880 

1055 GOSUB 1600 

1060 IF NB=NP THEN GOTO 115 

1070 GOSUB 1600 

1080 GOTO 250 

1100 GOSUB 1600 

1110 PRND USP 18045 

1120 GOTO 115 

1600 PRINT RT 21.0," 

1610 RETURN 
1700 GOSUB 1600 

1705 GOSUB 500 

1706 POKE 16418,0 

1710 PRINT RT 22.0; F IH DE P 

ART IDA 

1720 LET X =PEEK 16889+256+PEEK 1 
6890 

1730 LET 0 =PEEK 16891+256*PEEK 1 



6892 

1740 PRND USR 13045 
1750 FOP N=1 TO 40 
1760 NEXT N 

1770 IF X>0 THEN PRINT RT 21,2; 
RS PRETRS UENCEPRM" 

1780 IF X<0 THEN PRINT RT 21,2. 
RS BRANCAS UENCERAM" 

1790 IF X*0 THEN PRINT RT 21,2. 

EMPflT ARAM" 

1600 PRINT RT 22.4; 

BE A T 22 4 FIM DE PART ICR 
1310 IF INKEY*="“ THEN GOTO 1800 
1820 STOP 

2000 PRINT RT 21 .0. "B-SAUE S-RU 
N S-3T0P" 

2010 IF INKEY *="P" THEN STOP 
2020 IF INKEY J = R" THEN RUN 
2030 IF INKEY $ = ” S “ THEN GOTO 205 
0 

2040 GOTO 2010 

2050 PRINT RT 21,0. "APERTE QUAL0 
UER TECLA P/ GRAUAR” 

2060 PAUSE 4E4 
2070 3RUE C-B 
2030 RUN 

9000 PRINT "ENDERECO INICIflL a " 

9010 INPUT I 

9020 PRINT I 

9030 PRINT "ENDERECO FINAL a " 

9040 INPUT F 

9050 PRINT F 

9060 LET 1=1-1 
9065 LET H|*"" 

R S a — 



B*= | 



9100 LET c S a L 
910^?OSUB 9550 



9110 FOR Cal TO 3 
9120 LET A=PEEK 1I+C) 

9130 LET 0 = INT (A/16' 

9140 LET Pa (R-16*Q) +28 
9150 LET 0=0*28 

9160 LET H*=H*+CHR* (0) +CHR* (P) 

9170 LET U=I+C 

9130 IF UaF THEN GOTO 9260 

9190 NEXT C 

9200 PRINT RT 21,0, ENTER 

9210 INPUT Ps 

9215 PRINT RT 12.6; BS 

9220 PRINT RT 12,0,1+1, AT 12,7, H 

* 

9230 LET lay 
9240 LET H $ a " " 

9250 GOTO 9110 

9260 PRINT RT 21,0; ENTER 

9270 INPUT PS 

9275 PRINT RT 12 ,6; BS 

9280 PRINT RT 12,0,1+1, AT 12,7, H 

* 

9300 PRINT RT 21,0, "(S/N) - PARR 
OUTRO BLOCO" 

9310 IF INKEY S="S" THEN GOTO 934 

0 

9320 IF INKEy S="N" THEN STOP 

9330 GOTO 9310 

9340 CLS 

9350 GOTO 9000 

9550 PRINT RT 11 .6; fl* 

9560 PRINT RT 12,6: BS 
9570 PRINT RT 13.6;CS 
9580 RETURN 



programa deverao ser respondidas com 
Sou N. 

Nao se impressione se logo no primei- 
ro lance as brancas marcarem 360 pon- 
tos; 6 como se elas ganhassem todos os 
territdrios restantes no tabuleiro, mas, 
assim que as pretas efetuarem o pr6xi- 
mo lance, estes pontos voltam a zero. 

0 jogo pode ser interrompido a qual- 
quer instante . Para isto basta que na ho- 
ra de serem dadas as coordenadas do 
lance, digite-se um asterisco (*). Apare- 
cerSo entao na posigao 21 ,0, tres op95es: 
S-SAVE (grava o programa); R-RUN 
(pergunta se 6 para continuar a partida 
ou comegar uma nova), caso se decida 
por uma nova partida, todas as pedras 
existentes no tabuleiro serSo retiradas e 
os respectivos contadores zerados; se a 
opgao for para continuar, basta observar 
de quern e a vez de jogar atravds das le- 
tras X ou O invertidas; e P-STOP (encer- 
ra a partida). 

Por fim, para que os jogadores te- 
nham uma perfeita nogao do terreno em 
que v5o disputar esta incrfvel batalha, 
eis uma breve descrigao do que cada blo- 
co em Assembler executa: bloco 1 — im- 
pressao do tabuleiro e cria 9 §o da tela; 
bloco 2 — detecta pedras mortas; bloco 
3 — conecta pedras pretas; bloco 4 — 
conecta pedras brancas; bloco 5 — elimi- w 
na pedras mortas; bloco 6 — prepara a at 




Seu micro 
merece 




Assistencia 
Tecnica 
ASSIST. 

E voce merece a tranquilidade de contar 
com a mais eficiente equipe tecnica do Rio, 
tremada nas fabneas, e recomendada pela 
Petrobras, Furnas, Light e Bolsa de Valores. 

A ASSIST oferece tambem dlversas opgoes 
para contratos anuais de assistencia tecni- 
ca. que garantem o maximo ao seu micro. 

E sem custar mais por isto 
Os micros Spectrum, Prologica. Digitus 
e muitos outros, alem de videogames e com- 
patibilizagao de perifericos. tern na ASSIST 
uma assistencia tecnica aprovada pelos pr6- 
pnos fabneantes. Alem disto. voce tern total 
assistencia aos micros importados: Sinclair, 
TRS-80, Apple e PC IBM. 

Se voce tern um micro e quer o maximo em 
assistencia tecnica. nao pense duas vezes: 
pense ASSIST. 

ASSIST: A maxima soluqao para seu micro. 






Assessoria de Sistemas e Engenharia Ltda. 

Av Beira-Mar, 406 - Gr. 805 - Castelo 
Tel. 262-5763 
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C3 


49 


3ft 


07 


48 


D6 


18913 


25 


4F 


3E 


13 


99 


26 


00 


6F 


18921 


22 


C5 


49 


2ft 


C3 


49 


ED 


5B 


18929 


C5 


49 


C6 


00 


ED 


52 


11 


81 


18937 


40 


19 


22 


C7 


49 


C9 






18943 


01 


00 


15 


CD 


F5 


08 


11 


75 


18951 


48 


01 


12 


00 


CD 


6B 


0B 


CD 


18959 


F7 


48 


FE 


76 


Cft 


08 


48 


CD 


18967 


19 


49 


CD 


31 


4ft 


C3 


OE 


4ft 


18975 


21 


05 


48 


7E 


2ft 


C7 


49 


77 


18983 


06 


00 


0E 


00 


C9 


06 


00 


0E 


18991 


01 


C9 


11 


B6 


02 


CD 


11 


49 


18999 


3E 


Oft 


D7 


3E 


83 


D7 


3E 


B9 


19007 


D7 


3E 


Oft 


D7 


3E 


B7 


D7 


C9 


19015 


FE 


IB 


C2 


C6 


48 


C3 


08 


48 



contagem de pontos; bloco 7 — conecta 
pedras brancas e pretas; bloco 8 - veri- 
fica o campo neutro das brancas; bloco 
9 - verifica o campo neutro das pretas; 
bloco 10 - faz a contagem dos pontos; 
bloco 1 1 - limpa o tabuleiro; bloco 12 



— verifica a continua^o da partida; blo- 
cos 13/14 e 15 - impressSo na tela, no- 
me do jogo, quantidade de pontos, nu- 
mero de lances e tambdm aponta de quern 
6 a vez de jogar; blocos 1 6/1 7/1 8 e 19 — 
rotina de entrada e conferencia de dados. 



Waldir Ferreira de Arruda estudou na Facul- 
dade de Sao Paulo (FASP), e trabalha atual- 
mente na Incremento Informatics S/A, onde 
ocupa o cargo de Analista de Produgao. Co- 
nhece as linguagens COBOL, PL 1. Assem- ■ 
bier e BASIC M 
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Quanto custa 
transfor mar um 
terminal remoto 
TR 207 num 
microcomputador 






cnbra — 






0 microcomputador Cobra 210 
e o terminal remoto TR 207 sao primos 
em primeirissimo grau. Os dois foram pro 
jetados para permitir a padroniza^o dos 
processos industriais, com a consequente 
redu^io do custo de fabrica^o e do pre^o ao 
consumidor. 

O micro e o terminal utilizam a mesma mecanica, a mesma fonte de alimenta^o e o mesmo 
video. Eles tern pequenas diferen<^is nas partes eletronicas e nas caracteristicas do teclado. 

Qual a vantagem dessa padronizapio para o usuario? 

A primeira e que um micro Cobra 210 pode desempenhar plenamente todas as fiingoes de um 
terminal remoto, sem prejuizo de suas fungoes de microcomputador. 

A segunda e que um terminal remoto pode ser facilmente convertido num microcomputador 

Cobra 210.0 processo de transfor- 
maqao e simples e o custo e baixo. 

Como voce ve, quando compra 
um Cobra 210, voce leva um micro que 
tambem pode funcionar como terminal 
remoto. E quando compra um 
TR 207, voce leva um terminal remoto 
que pode ser transformado em 
micro, como num passe de magica 
Isso nao e um bom negocio? 




NMN.800 



NOVO L A N GA M E 



O CP M, um dos mais populares sistemas ipperacionais para Micro-- 
computadorejs eoTRSDOSe seus similares, comumapopularidadeequi- 
valente adoCP/M, estao juntos agora no novisiimo NAJA 800 da Kemi- 
tron.Com issto, passa a estar disponivel para um so computador a mais 
extensa bibliloteca de software jamais reunida.H — 

O NAJA aQfljgmjjmdesign que acorn pan ha as mais recentes tenden- 
cias tnundtaisTVroFQ^SFB^^^Sj rADXldestacal ios. O seu video, um mo- 
nitor de 1 2 '-'.riVa Ua resolucaQ, o pe r a n o st o rm at^ 8 0X24. 40X24. 64X1 6 
e 32X1 6,em modo normal ou reverso. Sua CPU \iem com dois drives de 5 
1/4" e m b utidos e possui 5 slots para conexao detexpansoes. Sua memo- 
ria principal possui 1 28K em RAM e 1 4K em EPRIOM, onde esta gravado 
o interpretadori basic. O teclado e do tipo qwert cokn 7Q tecl asj? o num6ri- 
co redtiziSS^Tres tectas sao programaveis p e I o u su a|nouj^ ~ 

Alem oqsjiistemas operacionais7Frn^mrron3dps,|o1\r^A SOO^^q^ 
meiro equipamento brasileiro a operar com o novissimo CP/M 3. O da Di- 
gital Research. - 

Opcionalmente o NAJA 800pode serequipadocom placa dealta reso- 
luqao grafica (640X240 pontos), disco rigido tipo Winchester, disco de 
8'f7^omunicagao serial e sintetizador de voz^ 



Jase o num6ri- 



>s, o NA, 




AV CONTORNO. 6048 - SAVASSI - BELO HORIZONTE - MG 
TEL: (031) 225-0644 
TELEX: (031) 3074 KEM-BR 




Vet ho Oeste, cowboys e gado sao as atragoes desse programa 
para equipamentos da I inha TRS 80 III 



Um convite 
aos bons vaqueiros 

Marcos Fernando Ribeiro Ferraz 



V oce 6 o capataz e de repente se ve diante de um 
problema no rancho. Este 4 o espfrito do Curral, 
um jogo que consiste na tentativa de imobilizar 
dois animais fugitivos empregando estrategicamen- 
te os vaqueiros e obsticulos como cactus e rochas, colocados 
aleatoriamente na tela. O numero de obstdculos gerados serf 
proporcional ao nivel de dificuldade, isto 6, quanto mais obs- 
taculos, mais fdcil fica a captura dos animais. 

£ bom observar que, devido ao fato de os obsticulos serem 
colocados de forma aleatbria, pode ocorrer de os animais fica- 



rem totalmente isolados dos vaqueiros. Neste caso, resta ao ca- 
pataz rodar de novo o programa. Os movimentos dos vaqueiros 
sao controlados pelas quatro setas do teclado. Para selecionar o 
vaqueiro que se deseja movimentar a cada vez, 6 s6 usar a tecla 
de espa 90 . Agora, a galope para o Curral. 



Marcos Fernando Ribeiro Ferraz esti no ultimo ano do curso de Enge- 
nharia E let rdnica da Universidade Federal do Rio de Janeiro. 



Curral 



10 CLEM 300iV-233iK-214iL-33iW-222iS-234IN-234iOOTO 140 
20 CLSlPRINT CHR%<23> IPRINT8384, ", I INPUT "NIVEL (O-DIFICIL • 15- 
FACIL)",LVIIF LV<0 OR LV>13 THEN OOTO 20 ELSE CCS! PR I NT 843, 8 TRIM 
01(43. 140) , IFOR I-l TO 14IPORE 15340* I -44 . 191 IPOKE 13423. I *64 . 19 
1 ■ NEXT 1 1 PR INT827 ,CMRt( 191 ) , " CURRAL ",CMR*« 191 ) , 

30 PRINT80.NMS,'...',H8»,iPRINTe940.STRIN0*<43.13l>,iP0RE 143B3, 
131 IFOR I-l TO 10«P(I>-13B34.IiP0RE PID.VINEXT HJ-HPORE 14919 
, OiPOKE 14920,0 

40 H-<RND<3)-2>»44IIF H-0 OOTO 40 ELSE A-T3424*«RN0< 12) )»44lF0R 
I-l TO RND<IB)*BIP0KE A»I,L«IF 1-4 OR 1-7 PORE A*I,32iN£XT I ELS 
E NEXT HA-A.I-1IF0R I-l TO 13IA-A.HUF PEEK(A>-32 PORE A.LINEXT 
I ELSE NEXT I 

30 FOR I-l TO 2iB<I)-13420.RN0(900)«IF PEER <B < I ) > 032 OOTO 30 EL 
SE NEXT I 

40 FOR I-l TO RN0<LV«20)*10IA-13420*RN0I900> I IF PEER(A)<>32 NEXT 
I ELSE PORE A.HiNEXT UFOR I-l TO RNO< 5«LV)*3i A-15420*RNO<900> I 
IF PEER < A > 032, NEXT I ELSE PORE A,R I NEXT I 

70 FOR F-l TO 2iM-B<F)iZ-RN0<4)IIF Z-1B(F)-M*44 ELSE IF Z-28IF)- 
H-44 ELSE IF Z-3B<F)-M*l ELSE B«F)-M-1 

BO M<F)-NINEXTF«PR INT838.R IGHTSIT IHES ,3) , IPO-P < J> tX-REER < 14400)1 
IFX-O. 90ELSE IF X-44P (J>-P(J)*l I00T090ELSEIFX-32P <J)-P<J)-1 lOOTO 9 



0£LSEIFX-14P(J)-P < J).44IOOT090EL8E IFX-8P < J)-P < J>- 441 00T090EL SEIF 
*-l 2BP0REP < J ) . W« J- J« 1 1 IF J- 1 1 J- 1 1 PO-P « J ) I ELSEPO-P < J ) 

90 FOR I-l TO 2> IF PEER(B(I)>< >328 < I >-N< I ) INN-NN.l IPORE BID.NIN 

EXT I ELSE PORE 8<I).NIP0RE H< I ) . 32INN-0INEXT I 

100 IF PEER <P ( J) )< >32P < J)-P0«P0RE PIJ).B ELSE PORE P(J>, BiPORE P 

0.32 

110 IF NN<30 OOTO 70 ELBE ES-RI0MT*(TIHES.3) 

120 A-WAL(LEFTS(E*.2>)UF MN)A,T-2 ELSE IF MN-A ANO MSIVALIRIOMT 
KE1.2) ) ,T-2 ELSE T-l 

130 JS-INRETSiH-0tA-VAL(LEFT»<ES.2))«B-UALtLEFTt(E*.2))iIF MN<A 
OR HN-A ANO HSIB.OOTO ISO ELBE CLStPR INT CMR»(23 > >PR INT8394 , "OOC 
E BATEU 0 RECOROE !”tPRINT84A0,-ENTRE CON SEU NONE" IMN-AIHS-B IMS 
S-EfiNNS- — 

140 PRINT8394, — |HNPUT NHf I NHS-LEF T % < NHS .15) 

130 PR l NT 87 70, "PRESS I ONE (ESPACO) PARA COHECAR*|>IF INXETS-” -.0 
OTO 20 ELSE 130 

140 CLSiPR INT82B, "CURRAL* 1 1 PR I NT 844 .STRINGS (44, 140 ), IFOR I-l TO 
10IP0RE 13372*1 , VINEXT I 

170 PRINT8224,-'<— UABUEIROB" IPORE 13438, NtPORE 13443 ,NiPR INT82B8, 
-<— ANIMAIS', (FOR 1-2 TO 10 STEP 2 1 PORE 15499* I ,R INC XT 1 1 PR INT83 
S2,'<— ROCHAS', IFOR I-l TO 9 STEP 2IP0RE15744.I .NINEXT HPRINT8 
414, '<— CACTOS', IFOR I-l TO 10 1 PORE 13828* I .LINEXT I 
173 PR INT8480 , "< — CERCAOO' , 

180 P0RE13894, VI PORE 14022, VIPORE 1 3937, Vi PORE 15959, VIPOR El 3958, N I 
POR E 13900, LI PORE 1 5944, R I PORE 1 402B, Wl POR C 13943, Ni PORE 13944, VI PORE 
13901 , VIP0RE14029, VIPRINT8406,*<— EXENPLO OE CAPTURA', I MS-39 IHN 
-39INN»--*»»««-iHS*-"59l39'i00T0 130 
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Obter melhor desempenho de um equipamento de Idgica Sinclair depende 
muito do grau de domfnio sobre ele. Por isso, vamos explord-lo mais 



Domi ne as areas 
da memoria RAM 



U m dado de grande importan- 
ce para quern desenvolve pro- 
gramas, principalmente em 
linguagem de mdquina, 6 o 
conhecimento — mais do que isso, o do- 
mfnio - da memdria RAM, cuja estrutu- 
ra, nos micros da linha Sinclair, apresen- 
ta-se segundo o esquema da figura 1 . 

Quando se estd digitando ou rodando 
um programa, as diversas sub-dreas em 
que se divide a RAM mudam constan- 
temente de tamanho, numa especie de 
mecanismo de sistole/didstole, para usar 
termos mais ou menos em moda. Tudo 
acontece is custas da reserva, que dimi- 
nui quando uma sub-drea aumenta e vi- 
ce-versa. 

Um reeurso muito empregado por 
programadores 6 o de alterar a posi^io 
da RAM TOP (RTP), varidvel que indica 
o primeiro endere^o fora do aJcance da 
programa^So BASIC. Quando o micro 6 
ligado, a RTP estd no seu endere 90 ma- 
ximo e Id permanece atd que seja rebai- 
xada para um endere^o R mediante os 
comandos BASIC abaixo ou atravds de 
instances em linguagem de mdquina: 
POKE 16388.R— 256*INT (R/256) 
POKE 1 6389, INT (R/256) 



Cteudio de Freitas B. Bitten court 



Esse processo diminui a RAM e ape- 
nas d executado para reservar, nas posi- 
9 des superiores, uma drea a salvo de in- 
vasOes indesejdveis, decorrente dos tais 
movimentos de sistole/didstole j jd cita- 
dos. Os endere 90 S situados nessa drea 
privilegiada ficardo tambem imunes aos 
comandos NEW, SAVE e LOAD. 

Mas isso n3o e tudo, pois as sub-ireas 
STACK DA MAQUINA e STACK DO 
GOSUB permanecem nas posi 90 es origi- 
nais e podem, eventualmente, crescer 
(crescem para baixo) e destruir bytes 
ue supunhamos a salvo sob prote 9 io 
a RTP. Para realocar essas sub-ireas, de 
acordo com a nova posi 9 lo da RTP, o 
unico comando dispom'vel e' o NEW, 
que, no entanto, apaga os programas 
BASIC e suas variiveis, sendo por isso 
impraticdvel em certas drcunstincias. 
Normalmente o que se fa z 6, com a 
RAM ainda vazia, logo apds ligado o 
computador, colocar a RTP no endere 90 
desejado, teclar NEW e, entSo, digitar 
ou carregar programas. Tem-se, assim, 
uma unica op 9 <Io, com a agravante de 
ter que ser feita antecipadamente, o que 
nSo e nada pritico. 



Para resolver o problema, apresenta- 
mos a rotina da listagem 1 em linguagem 
de miquina, que realoca a RTP e trans- 
fere os STACKS para as posi 90 es ade- 
quadas. A ope^^To pode ser efetuada a 
qualquer momento e repetida indefini- 
damente, fazendo o conjunto descer ou 
subir na memdria, desde que observadas 
as seguintes precaugdes: 

• colocar a RTP sempre na RESER- 
VA, quando estiver sendo abaixa- 
da; 

• nunca ultrapassar o endereco limite 
(32768, em micros de 16 Kb); 

• considerar que os STACKs ocupam 
cerca de 100 endere 90 s e que nSo 
pode haver qualquer superposi 9 ffo, 
seja com eles prdprios ou com ou- 
tras dreas da memdria; 

• nunca alterar o endere 9 o da RTP de 
menos do que 100 unidades; 

• colocar a RTP o mais distante pos- 
sfvel da PILFIM, a varidvel que in- 
dica o inicio da RESERVA (para co- 
nhece-la fa 9 a PRINT PEEK 16412+ 
256 ’PEEK 16413). 



ROM 


VAR I A VE IS 


PROGRAMA 

BASIC 


ARQUIVO DE 
IMAGEM 


variAveis 


ESPAQO DE 
TRABALHO 


STACK DO 
CALCULADOR 




\ STACK DA 
j mAquina 


STACK I 
GOSUB | 




^-16384 


1-1650? 


1-DFILE 


1- VARS 


1— ELINE 


1-PILFUN 


1— PILFIM 


Lsp 


— ENSP R 



Figura 1 
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Li 


stagem 




— Arrumando a RAM 


ENDEREgO C6DIGOS 




mnemOnicos 


INTERPRETAgAO* 


16514 


11 


00 


78 




LD DE. 30720 


3 


DE-30720 


16517 


2A 


04 


40 




LD HL, ( 16388) 


1 


HL-RTP 


16520 


AF 








XOR A 


3 


BIT de carry = 0 


16521 


ED 


52 






SBC HL.DE 


i 


HL-RTP-30720-A 


16523 


30 


1 1 






JR NC 17 


3 


IF A >*0 GOTO 16542 


16525 


D5 








PUSH DE 


J 


30720 no STACK da maquina 


16526 


2A 


04 


40 




LD HL, (16388) 


3 


HL-RTP 


16529 


EB 








EX DE.HL 


; 


HL— -DE 


16530 


AF 








XOR A 


S 


BIT de carry « 0 


16531 


ED 


52 






SBC HL.DE 


J 


HL-30720-RTP-A 


16533 


D1 








POP DE 


l 


DE-30720 


16534 


44 








LD B.H 


i 


j BC-HL-A 


16535 


4D 








LD C.L 


: 




16536 


2A 


02 


40 




LD HL.( 16386) 


; 


HL-ENSP 


16539 


09 








ADD HL, BC 


i 


HL-ENSP+A 


16540 


18 


07 






JR 7 


» 


GOTO 16549 


16542 


44 








LD B.H 


i 


\ BC-HL-A 


16543 


4D 








LD C.L 


s 


J 


16544 


2A 


02 


40 




LD HL. (16386) 


3 


HL-ENSP 


16547 


ED 


42 






SBC HL.BC 


; 


HL-ENSP- A 


16549 


22 


02 


40 




LD( 16386) ,HL 


3 


ENSP-HL-ENSPt A 


16552 


2A 


04 


40 




LD HL, (16388) 


3 


HL-RTP 


16555 


AF 








XOR A 


; 


BIT de carry - 0 


16556 


ED 


72 






SBC HL, SP 


; 


HL-RTP-SP 


16558 


44 








LD B.H 


3 


1 BC-HL-RTP-SP ' 


16559 


4D 








LD C.L 


3 




16560 


2A 


04 


40 




LD HL, ( 16388) 


3 


HL-RTP 


16563 


ED 


53 


04 


40 


LD( 16388) ,DE 


3 


RTP-30720 


16567 


ED 


B8 






LDDR 


3 


copia STACKS na posigao nova 


16569 


EB 








EX DE.HL 


3 


HL — DE 


16570 


F9 








LD SP , HL 


3 


SP-HL 


16571 


C9 








RET 


3 


RETURN 


•OBS. 


Na interpretaqao foi usado o 


simbolo A para indicar o desloca- 




mento 


da 


RTP 











As violates dessas regrinhas de bom 
senso, por conta e risco do usuirio, po- 
derSo provocar o colapso do sistema, 
mandando o seu programa para o espa 90 . 

Para digitar a rotina use um editor 
Assembler (pode ser aquele publicado 
em MS, n9 23) e prepare uma linha ini- 
cial: 1 REM... 58 caracteres. 

Devem ser exatamente 58 caracteres 
quaisquer. Rode o editor e forne^a co- 
mo endere^o inicial 16514(4082 em he- 
xadecimal). 

Os bytes posicionados nos endere^os 
16515 e 16516 destinam-se a receber o 
valor a ser dado & RTP e, no momento, 
contem o mirnero 30720(7800 em he- 
xadecimal). Para mudar para um valor 
R fa9a: 

POKE 16515 ,R-256*INT(R/256) 
POKE 16516,INT(R/256) 

E para acionar a rotina: _ 

RAND USR 16514 



Cliudio de Freitas B. Bittencourt 4 formado 
em Engenharia Metalurgica e 4 professor de 
pds-graduap&o em Engenharia Nuclear no IME 
— Instituto Militar de Engenharia, no Rio de 
Janeiro. 






Se o tal de cubo magico nunca chegou a esquentar sua c a beg a, 
aceite o desafio deste jogo, criado para a I inha Apple 



Funde a Cuca 



Claudio Coe! ho Lima 



O usuirio da linha Apple que se 
liga em quebra-cabe^a eletro- 
nico vai encontrar em Funde 
a Cuca urn passatempo muito 
interessante. Trata-se de urn jogo seme- 
lhante ao conhecido cubo mdgico. 0 jo- 
gador 6 convidado a formar uma frase 
de 25 caracteres. 0 desafio tern infcio 
com a desordena^ao das letras, que fica- 
rao dispostas num painel de 25 quadros, 
onde a frase deverd ser reordenada em 
cinco linhas horizontais. 

Na parte superior direita da tela o 
tempo 6 cronometrado, em contagem 



regressiva. 0 desafio maior 6 reordenar a 
frase no menor periodo de tempo possf- 
vel. Na parte inferior da tela, de acordo 
com o progresso do jogador, a frase vai 
sendo disposta em sua forma original, 
para melhor orientasSo. 

Quando ela 6 totalmente recomposta 
surgem automaticamente impressos na 
tela o tempo gasto e o convite para uma 
nova tentativa. Um dos macetes para 
veneer o desafio 6 procurar criar frases 
com o maior numero possivel de vogais 
e consoantes iguais, por exemplo, com 
muitos A e/ou R, pois o remanejamento 



das letras fica mais ficil. A frase deve ser 
digitada no inicio do programa, quando 
o computador fizer a pergunta. Caso vo- 
ce aperte o ENTER, o que surge no pai- 
nel 6 o alfabeto, incluindo as letras K e 
W. Funde a Cuca foi criado para Apple, 
mas pode ser facilmente convertido pa- 
ra outros equipamentos. Ocupa uma me- 
mbria aproximada de 3.840 Kb. 



CUudio Coe I ho Lima 4 estudante do Sagundo 
Grau, autodidata e possui conhaciman tot de 
BASIC a FORTH. 









Funde a Cuca 



i 



10 


REM 


•HMMtUMMtMMm 


11 


REM 


•AUTOR DO PROGRAMA 1 • 


12 


REM 


• CLAUDIO COELHO LIMA* 


13 


REM 


•TITULO: FUNDE A CUCA* 


14 


REM 


•DATA! 04/09/1984 • 


15 


REM 


»•»*****»♦•»*»**»**««* 


lOO 


DIM 


A* (6) 


101 


DIM 


8* (6) 


102 


DIM 


C*<6> 


103 


DIM 


D*C6> 


104 


DIfVE*<6> 


110 


REM 


FORMANDO A TELA 


114 


TEXT 


: HOME 


115 


VTAB 


3 


120 


PRINT -DIQITE UMA FRASE DE 2 




5 CARACTERES:* 


123 


HTAB 


2 


125 


VTAB 


51 PRINT “ 


128 


VTAB 


4: INPUT T* 


130 


T* - 


LEFT* IT*, 25) 


131 


IF T* - *" THEN T* - "ABCDEF 



GH I JKLMNOPORBTUVWX V Z ■ 



135 HOME 

136 VTAB 111* - “FUNDE A CUCA”: INVERSE 
HTAB 141 - LEN II*) ) / 21 «»»INT 

I* 

137 NORMAL 

138 VTAB 21 HTAB 1 
140 FOR P - 1 TO 5 

145 PRINT 
•••••••••■••••a**' 

146 NEXT P 

148 PRINT -•••••••*•*•*••*•*•••• 

151 PRINT -*•••••••••••• 45678 

*•••**«•***•*• ■ 

153 PRINT ■••*••••***••• 

♦ •••*•••••**•«•' 

155 FOR P - 1 TO 5 

156 READ R*: READ P* 

160 PRINT -*••*•••*••••• " | R*| “♦ 

♦”(P*|* ••••••••••*•** - 

165 NEXT P 

166 DATA 3,9,E,I,D,K,X,",",2,*.- 



170 PRINT "••••••••*•••• »»»♦♦> 

171 PRINT ”••••••••••»•• CVBNM 

172 PRINT "•••••••••••••••••••*• 

175 FOR P - 1 TO 6 
180 PRINT 

185 NEXT P 

200 REM INICIO DO PROGRAMA 

205 FOR T - 1 TO 5 

206 READ A.B.C.D.E 

210 A* <T> - MID* (T*,A, 1) 

215 B* IT) - MID* IT*, B, 1 ) 

220 C* IT) - MID* (T*,C,1> 

225 D* <T) - MID* (T*,D,1> 

230 E* <T) - MID* (T*,E,1> 

235 NEXT T 

240 DATA 20,15,13,25,1,6.9,18,23 
.4,8,5,2,22. 11, 17, 10,7,21,24 
.19,12,3,14,16 
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* <61 - ES<1» 




540 


REM VERIF I CACAO DE ACERTO 






BOSUB 300 




301 


FOR T - 1 TO 3 




541 


FOR T - 3 TO 1 STEP - 1 














542 


V*<11 - A*(T) ♦ V*( 11 








- i 


304 


IF M - I THEN A*(T> - 


A4(N) 


343 


V* (21 - B4<T) ♦ V4(2) 






VTAB 3: HTAB 28! PRINT * 


TEMP 


303 


IF M - 2 THEN B*(T> - 


B* <N> 


344 


V*<3) - C*(T1 ♦ V* <31 










306 


IF M - 3 THEN C*(T> - 


C*(N> 


543 


V«<4) - D4fT> ♦ V4<4> 










307 


IF M - 4 THEN D* <T> - 


D«(N) 


546 


V*(3) - E*(T) * V«<3) 






IF DT - 179 THEN M « 1: 


GOTO 


308 


IF M - 3 THEN E*(T> - 


E»<N) 


548 


NEXT T 
















350 


P* - V*<1> ♦ V*(2) ♦ V*(31 ♦ 






IF DT - 197 THEN M • 2: 


GOTO 


310 


GOTO 300 






V«(4) ♦ V4(3) 










320 


A* (01 - A*<3>:B*<0> - 


M(5):C 


531 


VTAB 23: HTAB 8: PRINT P* 






IF DT - 196 THEN M - 3: 


GOTO 




• <o> - C*(3>:D»(0> - 


D»(3) :e 


555 


IF P* - T» THEN GOTO 600 












•CO) - E*<5> 




536 


FOR T - 1 TO 5:V*(T> • NEXT 






IF DT - 216 THEN M - 4: 


GOTO 


321 


FOR T - 5 TO 1 STEP 


- 1 




T 
















370 


IF VB - l THEN RETURN 






IF DT - 218 THEN M - 3: 


GOTO 


324 


IF H ■ 1 THEN A*(T> - 


A» (N> 


580 


GOTO 290 










323 


IF h - 2 THEN B* <T> - 


B4(N) 


600 


HOME : FOR T - 1 TO 4 








GOTO 


326 


IF M - 3 THEN C4IT1 - 


CAIN) 


603 


FOR L - 1 TO 4 










327 


IF M - 4 THEN D*(T> - 


D4(N) 


610 


CALL - 1 98 






IF DT - 201 THEN M - 2: 


GOTO 


328 


IF M - 3 THEN E*(T> - 


E4(N) 


613 


NEXT L 










329 






616 


VTAB 13: PRINT * CONG 






IF DT - 203 THEN M - 3: 


GOTO 


330 


GOTO 300 






RATULACOES M •••!!• " 










340 


FOR T - 1 TO 3 




618 


FOR P - 1 TO 100: NEXT P 






IF DT • 172 THEN M - 4: 


GOTO 


341 


G*(T> - A»<T> 




619 


HOME 
















620 


NEXT T 






IF DT - 174 THEN M - 3: 


GOTO 


343 


A4(M> - B*<M):B«<M> - 


c»<m:c 


630 


SPEED- 100 












• <M> - D*(M>:D*(M) - 


e*ih>:e 


633 


VTAB 4: PRINT " MU I TO BEM.VO 






IF DT - 180 THEN ft - l : 


GOTO 




•<H> - G»<M) 






CE CONSEGUIU ARMAR 0 ": PRINT 










343 








■TEXTO 1“| T4I “> COM 0“: PRINT 






IF DT - 181 THEN H - 2: 


GOTO 










•TEMPO "13000 - HI ".AGORA TE 


















NTE SER AINDA-: PRINT "MAIS 






IF DT - 182 THEN M - 3: 


GOTO 


332 








RAPIDO. • 












E*<n> - d«(n>:d«(M> - 


c»<m) :c 


640 


SPEED- 253 






IF DT - 183 THEN M - 4: 


GOTO 




• <n> ■ b*<m>:b»(m> - 


A*<m : a 


643 


VTAB 23: PRINT * APERT 


















E UMA TECLA":DT - PEEK < - 








GOTO 




















501 


DT - PEEK < - 16368) 














GOTO 


302 


INVERSE 




630 


VTAB 231 PRINT ■ 










303 


VTAB lO: HTAB 16 ♦ T: 


PRINT 




*: GOTO 643 








GOTO 








670 


INPUT J4: RUN 














PRINT 


tooo 


HOME : CALL - 198 








GOTO 








1003 


SPEED- 233 










313 


VTAB 12: HTAB 16 ♦ T: 


PRINT 


lOlO 


VTAB 4: PRINT " SINTO MUIT 








GOTO 










0 MAIS SEU TEMPO ACABOU.-: PRINT 










320 


VTAB 13: HTAB 16 ♦ T: 


PRINT 




“PERCEBO OUE VOCE TEM PREGUI 








GOTO 










CA DE *: PRINT “PENSAR.": PRINT 










323 


VTAB 14: HTAB 16 * T: 


PRINT 




"ACHO OUE ESTE JOGO NAO SER 






NEXT h: goto iooo 












VE PARA-: PRINT -VOCE.TCHAU' 






A*(6> - A4(1»:B»(6> - B»(1):C 










-: SPEED- 233: END 






•(6> - c*<i»:d*<6> - d*(1>:e 












A 



Impressoras apaixonadas, I 

micros felizes. O^amento perfeito 

Ecodata EL-8000 



A impressora 
fora de serie. 

EL-8000 6 tudo que um micro precisa de 

uma impressora. De incrivel versatilidade 

a EL-8000 possue: 

• Controle por microprocessador. 

• Escrita bi-direcional em qualquer cir- 
cunstdncia • procure I6gica. 

• Imprime em diversos idiomas: mgies. 
francos, alemdo. espanhol. etc. 

• Desenha. faz greficos, reproduz qual- 
quer imagem que um Micro produza 
em seu video. 

• T roca de formato de impressdo dentro 
da mesma linha. 

• Velocidade de comunicaoSo de 50 at6 
9600 BPS. 

• Buffer de recepoSo ate 2.000 caracte- 
res. 

• Produz diversos tipos de impressSo: 
normal, negrito. expandido, sublinha- 
do. sub e sobre-escrito. 

• 80 a 132 caracteres por linha. 

• ImpressSo matricial 9x7 permitindo 
ate 8 vias numa velocidade de 100 
CPS. Em bobina, folha solta e/ou for- 
muierio contlnuo. 

• Etc... etc... etc... 



n 1 1 
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SIS'tMA Of MIOCf SSAMtNTO M DADOS i TIltCOMUMKACOCS 

Rio de Janeiro - R. Republics do Libano. 61-12? andar Tel.: (021) - 221-4677 - Telex (021) 30187 

S3o Paulo - Rua Frei Caneca. 11 19 - Tel.: (Oil) 284 831 1 Telex (Oil) 22191 

Brasilia SCS 02 - Bloco C n? 41 SL. 01 • Tel.: (061) 225-1588 - Telex (061) 1750 

Porto Alegre Rua Santa Terezinha. 300 - Tel.: (051) 232-3564 - Telex (0511 2144 

Belo Horizonte: Tel.: (031) 222-7809 

GoiSnia - Salvador 










Tedado BASIC 

A Dynacom estA lanpando um tec I ado BASIC acoplAvel a qualquer 
videogame competCvel com o sistema ATARI. 0 novo teclado permite 
programapSo de microcomputador em linguagem BASIC. criapito de jo- 
gos animados e sonoros, programas matemAticos e sintetizapoes de mu- 
sics . 

0 teclado BASIC vem acompenhado de um cartucho com programs 
de 4 Kb e um manual ilustrado. A sua final idade, segundo a empresa, 
e eliminar o medo existente nas pessoas do "terrfvel computador" e 
demonstrar que qualquer pessoa pode manipular a mAquina a seu co- 
mando. Outra finalidade A ensinar n princfpiosda programapao BASIC 
a crianpas a partir dos seis anos de idade. 

Para a instalapSo do teclado basta encaixar os seus oonectores nos 
respectivos soquetes dos joysticks direito e esquerdo do console e car- 
tucho do programs que acompanlia o teclado. O novo produto da Dy- 
nacom pode ser encontrado nas lojas especial izadas e magazines por 
Cr$ 122 mil. 



Informatica medica na UERJ 

A Universidade do Estado do Rio de Janeiro, que em outubro 
passado realizou o 19 SeminArio de Informatics, prossegue em 
fevereiro com tema paralelo. RealizarA seu 19 Congresso Brasi- 
leiro de Informatics MAdica. E simultaneamente, a 1? Mostra In- 
ternacional de Videocassete Medico e o IP Forum Internacional 
de DemonstrapSo de Equipamentos Medicos. Outras-informapdes 
pelo telefone 264-8143, ramais 2417 e 2507. 



Miniventiladores Arno 

A Arno estA lanpando uma I inha de miniventiladores que podem ser 
utilizados em computadores, equipamentos perifAricos, sistemas de co- 
municapSo e instruments eletronicos portAteis. O Muffin DC possui 
motor sem escovas o que reduz os nfveis de interferAncia rid io magne- 
tics. O novo miniventilador fornece maior volume de ar que os modelos 
convencionais de corrente alternada, resultando em menor consumo de 
energia. O Muffin DC 6 ideal para situapdes onde hA necessidade de 
manter a ventilapSo, no caso de falha e interruppSo de fornecimento de 
corrente alternada. 




1-9000 da Itautec 



Cursos da Datamicro 

A Datamicro Informatica jA tern a relapSo de cursos que pro- 
movers durante o mes de Janeiro. As aulas serSo desen volvidas 
em sua sede, na Rua VUconde de PirajA, 547, sobreloja 211, tel.: 
51 1-0395, Ipanema. , 

Eis os cursos e os perfodos em que se realizarSo: "Linguagem 
BASIC Avanpada" (2 a 30); "Micro Computador para Crianpas" 
mddulo 1 (3 a 22); "Microcomputador para Crianpas", mddulo 2 
(4 a 16); "Microcomputador Aplicado no CAIculo Estrutural" 
(7 a 28); "Linguagem BASIC" (7 a 28); "ProgramapSo BASIC" 
(7 a 6/2); "IntrodupSo aos Microcomputadores" (8 a 31); "Mi- 
crocomputador para Crianpas" mddulo 3 (8 a 24); "Linguagem 
de MAquina para o TK" (9 a 30); "BASIC para o Advogado"(9 a 
8/2) e "Microcomputador Aplicado em MAtodos MatemAticos" 
<10 a 5/2). 



Programas Ciberne 

A Ciberne Software/JVA microcomputadores, do Rio de Janeiro, 
estA lanpando 23 programas para micros com I6gica Sinclair e TRS-80, 
sendo 5 deles totalmente idealizados e desenvolvidos no Brasil. Os pro- 
gramas estSo divididos em oito fitas cassete; sSo elas: VALKIRIE, 
MERCADOR DOS 7 MARES, DEFENSOR 3D e SUB-ESPAQO (jogos 
compatfveis com o Sinclair); APLIC I e ROT 1-Plus ( respect ivamente 
pacote aplicativo e utilitArio para os compatfveis com o Sinclair); 
SIMULADOR DE V0O E XADREZ (jogos para os compatfveis com o 
TRS-80). 

As fitas contAm, entre outros, os seguintes programas: Patrulha Ar- 
mada, Guerrilha Cbsmica, Corrida Maluca, Cavernas de Marte, Assalto e 
Pintor Maluco (jogos); COMP-CALC (versSo do programa Visicalc); 
COMP-ARQ (gerador de arquivo de dados); COMP-TEXTO (editor de 
texto) e S.O.G. (Sistema Operacional GrAfico). Este sistema A, na ver- 
dade, uma linguagem grAfica com mais de 27 rotinas conjugadas que 
dSo mu it as oppOes de uso e combinapfles, alAm de ser feito em cddigo 
de mafluina. 

O enderepo da Ciberne/JVA A: Av. Grapa Aranha, 145 — S/Loja 
n9 1, CEP: 20.030. 



Itautec fechando o ano 
com langamentos 



A Itautec fecha o ano de 84 
com um resultado final de ven- 
das entre 80 e 90 bilhdes de cru- 
zeiros e uma produpSo mAdia de 
500 micros por mAs. Segundo 
Carlos Eduardo Correa da Fon- 
seca, diretor superintendente da 
empresa, o resultado de 84, des- 
contando-se a inflapAo, foi supe- 
rior em cerca de 1 00 por cento 
ao fechamento de 83. E a em- 
presa fechou o ano com o Ian- 
pamento de mais dois equipa- 
mentos, o 1-9000, o primeiro 
computador de mAdio porte (32 
bits) fabricado no Brasil; e o 
1-7000 PC XT, um microcom- 
putador de 16 bits, com pat I’ve! 
com o PC da I BM. 

O 1-9000 foi desenvolvido 
com base na tecnologia adqui- 
rida da empresa Formation, uma 
companhia americana de enge- 
nharia, e o equipamento A to- 
talmente com pat fv el com os 
computadores de grande porte 
da IBM. A Itautec jA investiu 
cerca de 3 milhOes de dblares, 
de um total de 75 milhdes que 
serSo investidos nos primeiros 
quatro anos de produpSo da no- 
va mAquina. Segundo o diretor 
superintendente da Itautec, o 
processo de nacionalizapAb do 



1-9000 deverA ser conclufdo em 
meados de 85, e hoje uma equi- 
pe jA estA trabelhando nos Es- 
tados Unidos no desenvolvimen- 
to da segunda gerapSo do 1-9000. 
Para Carlos Eduardo Correa da 
Fonseca, uma das grandes vanta- 
ges do 1-9000 serA sua utiliza- 
p So como equipamento comple- 
mentar para clientes que jA pos- 
suam computadores de grande 
porte da IBM, para a realizapSo 
de processamento distribufdo. O 
1-9000 custa, numa configura- 
pSo com 8 Mbytes, duas fitas, 
controlador de comunicapSo de 
dados e uma impressora de mil 
linhas, aproximadamente 500 
mil ddlares. 

Para o micro de 16 bits, o 
PCXT, lanpado na Feira de In- 
formAtica no Rio de Janeiro, foi 
feito um investimento de cerca 
de 3 milhSes de dblares e no 
ano de 85 serSo colocados no 
mercado por volta de mil unida- 
des dessa mAquina. 

A Itautec vem atuando tam- 
bAm na Area de videotex to e a 
empresa fornece hoje A Telesp as 
estapSes editoras de videotexto, 
alAm dos terminais residenciais 
para acesso ao sistema. 
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Impressora 
matricial 
da Expansao 

A Expans^o Informdtica S. A., 
que detdm a licence de fabricacSo 
das impressoras Dataproducts no 
Brasil, langou na Feira de Infor- 
m4tica a impressora matricial de 
impacto M-340X, que tern a velo- 
cidade de 340 CPS e capacidade 
de imprimir at4 132 colunas. A 
M-340X tern matriz de 7x7, 4 bi- 
direcional com procure I6gica, 
possui interfaces RS 232-C e para- 
lela tipo Centronics, e tern ainda 
um con junto de 128 caracteres. 

Fitas 

impressoras 
da Memphis 

A empresa paulista Memphis 
est£ lancando uma nova geracSo 
de fitas impressoras para compu- 
tador, as Extralife. O produto 4 
colocado no mercado apbs dois 
anos de pesquisas para elaborated 
de seus componentes, como cartu- 
cho, bese, pigmento, solda, mon- 
tagem e desempenho, investimen- 
to que custou 4 empresa US$ 1 
milhSo. 

As Extralife foram criadas tan- 
to para micros como para com- 
putadores de grande porte e po- 
dem ser utilizadas por todos os 
equipamentos existentes no Bra- 
sil. J4 este ano, parte da produ- 
ced da nova linha de fitas da 
Memphis sere exportada oara par- 
ses da America Latina, Africa do 
Sul e Estados Unidos, onde pre- 
en che todas as exigincias reque- 
ridas pelo governo americanc 
quanto 4 qualidade e resistftncia. 



Medidata 
langa o 
supermicro 
M1001 

Com o lanpamento do super- 
micro Ml 001, a Medidata con- 
clui uma nova etapa de cria- 
gSo, iniciada em 1978. O novo 
produto este integrado a uma fe- 
rn flia de computadores compatf- 
veis e que nfo deverJ se alterar 
pelo menos nos prdximos tres 
ou quatro anos, informant dire- 
tores da industria. 

O Ml 001 foi desenvolvido 
visando nffo apenas as pequenas 
e media s empresas, mas tam- 
bem as grandes, cujo objetivo a 
curto prazo 4 descentralizar seus 
si stem as de processamento de 
dados. Ele surge, segundo Luis 
Carlos Dantas, gerente de Su- 
porte de Marketing da Medidata, 
"com excelente relecSo preco/ 
desempenho devido 4 utilizapfo 
de tecnologia de microprocessa- 
dores". 

Rodando em sistema opera- 
cional MUMPS, o Ml 001 atende 
simultaneemente a diversas esta- 
tes de trabalho, aceitando ate 
10 terminals, o que resulta em 
melhor aproveitamento de peri* 
fericos. Sua UCP 4 baseada no 



Ml 001 da Medidata 



microprocessador Z8000, da Zi- 
log, de 16 bits, o qual pode ma- 
nipular dados de 32 bits. Sua 
memdria 4 de 512 Kb com pas- 
tilhas de 67 Kb ou 2 Mb com 
pastil has de 256 Kb. Ele suporta 
dois disquetes de 5 1/4", face e 
densidades duplas com capacida- 
de individual de 320 Kb e tris 
discos rfgidos de 5 1/4" tipo 
Winchester, de 15 Kb cada. No 
back-up emprega fita magnetica 
em cartucho tipo Streamer com 
capacidade de ate 25 Mb. O ga- 



binete 4 vertical, de dimen sdes 
reduzidas. 

Para lanpar o Ml 001 a Medi- 
data investiu no projeto, que du- 
rou dois anos, Cr$ 1,8 bilhSo. 
Em sua configuracfc de 256 Kb, 
um disquete, um disco rfgido, 
terminal de video e uma impres- 
sora de 100 CPS, o custo do 
equipamento e de 3.200 ORTN. 
Com o novo equipamento sffo 
oferecidos conjuntos de pro- 
gramas aplicativos a partir de 
500 ORTN. 



Novo terminal Videotek 

Um terminal de videos a cores, VTK 2000C, 48 linhas, perfazendo um total de 3.840 carac- 

foi o produto lantado pela Videotek Sistemas teres na tela. O modelo apresenta ainda vfdeo 
Eletrdnicos. O modelo 4 apresentado em oito reverso, alimentacSo de 110/220 Volts e fre- 
cores diferentes, a tela tern 80 caracteres por qiidncia de 60 Hz. 



I STRINGS I 



9 A Appletronica Computadores, de S So Paulo, estd oferecendo cur- 
sos de introduced 4 Informdtica e BASIC I, com virias optoes quanto a 
duracSo e dias de aula. Informacfias pelo tel.: (011) 241-9833. 9 A 
Cooper & Lybrand, empresa de auditores independentes e consultoria, 
al4m de orientacfo de compra e instalagfo de hardware e software vem 
atuando no sentido de orientar as empresas na fase de conversed dos da- 
dos de sistemas existentes (manuais ou computadorizados) para micro- 
computadores. 9 A Anamed, industria paulista, acaba de lancar um es- 
pirdmetro computadorizado, um eletrocardidgrafo e um sistema de re- 
gistro de dois canais. 9 A 3M firmou contrato com a NASA para ree- 
lizar uma sdrie de experiincias espaciais, tais como: desenvolvimento de 
filmes de sensibilidade ainda desconhecida e cristais de espessura micro- 
mdtrica que, segundo a empresa, darSo um impulso ao desempenho dos 
computadores. 9 A Micro Rei Informitiea, de SSo Paulo, est4 lancando 
o programa Controle de Aplicagdes Econbmicas, que coordena investi- 
mentos em atdes, ouro, gado e ddlar . O programa realize andlise das va- 
riatOes didrias dos precos pelo computed or. 9 A Lojicred Universit*- 
rio promove mensalmente cursos de programatfo COBOL, BASIC. 
Digitac&o e OperagSo de Sistemas 4341. A divis&o de Cursos Espaciais 
oferece cursos de VSAM, CICS e Sistema de Aprimoramento COBOL 
(SAC). Maiores informapfles 4 Av. Duque de Caxias n9 401/19 andar, 
tel.: (011) 234-7855. 9 A ADP Systems, complementando sua linha de 



cursos na 4rea de Informdtica, estd introduzindo os cursos de BASIC 
II, COBOL 80, Visicalc e Word Star, com turmas sistemiticas e uso in- 
tensive de micros. Maiores informapGes pelo tel.: (011) 223-7511. 
9 A Fundapao Petrftnio Portella, de Brasflia, est4 lanpando um curso de 
Inform^tica Jurfdica por correspondence. O curso pretende dar uma 
visSo geral das aplicapOes do computador no Judicierio, Legislativo e no 
trabalho do advogado. InformapOes podem ser obtidas na prbpria Fun- 
daqfo: Minist^rio da Justice, Esplanada dos Ministirios, 70.064, Brasf- 
lia, DF. 9 A Prolbgica este comercializando dois programas de uso do- 
mistico para o CP-400 Color. Um dos programas organize a lista de 
compras do supermercado, o outro reune v^rias receitas culinirias. 9 
BKP-60 4 a unidade de fita cartucho lanpada pela Compart, na Feira de 
Informdtica. Projetada para servir como back-up de discos Winchester 
de 10 a 200 Mb, a BKP-60 este disponfvel em formato de 5 1/4”, com 
capacidade de 45 e 60 Mb, e possui trava de cartucho, o que evita a 
movimentaefo do meio (cartucho de 1/4") durante a operac^o. 9 A 
Percomp Perif4ricos a Sistemas tamMm apresentou, na Feira, discos 
magnet icos rfgidos Winchester de 10 Mb. Os discos apresentam, entre 
outras, as seguintes caracterfsticas: meia altura (41,3mm); dimensfies 
reduzidas (203mm de profundidade); posicionamento por motor de 
passos; capacidade formatada de 10 Mb por unidade, 8192 por trilha 
e 256 Kb por setor; 1224 trilhas e 4 cabepas. 
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A Informatica na Engenharia 

Nao se pode diz8r que a lnform$tica, na veis e o comportamento das empresasque nao E o nfvel da qualidade da Engenharia pode 

Area de Engenharia, nSo tenha apresentado repassam o software que criam a outras empre- ser avaliado pelo grau de utilizagao da Infor- 

progressos de um arto para outro. O que se po- sas nem o colocam £ venda por intermddio de mdtica em seus projetos. Este foi o consenso 

de afirmar 6 que as novidades nao foram vistas software-houses. Pereira esclarece: dos participantes do seminirio Informatica e 

na IV Feira Internacional, no Riocentro. Aopi- - A criagao de programas 6 demorada e de Engenharia. E ela eleva em apenas 0,5% o va- 
niSo 6 de Lufs Antonio Pereira, assessor tdcni- elevado custo. SSo geralmente especfficos, pa- lor do produto final, economizando temp>o e 

co de MS. Ele percorreu a exposigao e disse ra determinada aplicagao, cuja utilidade por material, 

nao ter encontrado, em termos nacionais, na- parte de outras empresas seria mfnima. Vende- 

da que motivasse sua curiosidade. lo, al6m de nao apresentar o retorno suficien- Mas a grande parte do problema de a Enge- 

Pereira nao chega a atribuir £ falta de inte- te, significaria "entregar de presente" um tra- nharia nao dispor de uma infra-estrutura mais 

resse dos programadoresbrasileirosainexistdn- balho ao concorrente. Mesmo assim, um pro- avangada neste setor surge j£ na formagSo do 

cia de software em demonstragao. Segundo grama especffico implica no fato de ser roda- profissional. Caso nao se interesse pessoalmen- 

ele, o investimento para um programador ffsi- do por quern entenda, um analista ou um tSc- te pelo assunto, o engenheiro deixarS a vida 

co apresentar seu produto numa feira 6 eleva- nico, e a empresa nao poderia garantir o apro- acadSmica completamente despreparado, afir- 

do em relagao ao risco de retorno. Quanto aos veitamento ou nao do programa por parte de ma Pereira, 

programas voltados £ Engenharia, criados por quern nao o entendesse. 

empresas, o assunto 6 mais complexo, afirma Como ficou comprovado, na feira nao ha- Sao poucas. no Brasil, as faculdades que 

Pereira. _ via programas disponfveis mas eles existem, dispoem de um Centro de Processamento de 

Ele analisa a questao a partir de problemas garante Pereira. SSo criados por engenheiros Oados ou um laboratdrio aberto a seus alunos. 

levantados durante o seminSrio Informatica e que se dedicam a programar cSIculos numSri- As vezes ocorre de o estabelecimento possuir 

Engenharia, real izado simultaneamente 4 Feira. cos, estruturas, economia de material etc. Um um ou dois microcomputadores. mas empre- 

Na ocasiSo, apresentadores e debatedores dis- trabalho divulgado boca-a boca, sem publici- gando mStodos didSticos obsoletos ou profes- 

cutiram a falta de programas tScnicos disponf- dade. sores despreparados pedagogicamente. 




O computador 
animando o desenho 

Atraindo um publico de todas Hoje a Oficina de Desenho Anima- 
as idades, durante a IV Feira Inter- do tern em andamento trfis proje- 
nacional de Informatica, a Oficina tos bSsicos: a produgao de filmes 
de Desenho Animado com o Uso didSticos sobre introdugao ao mi- 
do Microcomputador mostrava no crocomputador; a pesquisa da lin- 
mezzanino do Riocentro como 6 guagem de desenho animado com 
possfvel a conciliagao de dois re- utilizagao de computador; e o en- 
cursos que para muitos podem pa- sino da tScnica de desenho anima- 
recer dfspares: o computador e a do e a divulgagao do desenho ani- 
criagao. Com o simples toque em mado nacional. Na £rea de produ- 
teclas do microcomputador que gao de filmes didSticos a Oficina 
determinavam a diregao do traga de Animagao \£ tern pronto o pri- 
do, criangas das vSrias escolas vi- meiro video pi loto, de uma sSrie 
sitantes faziam seus desenhos e se de cinco que tSm por objetivo a 
encontavam com o resultado. E o iniciagao no raciocfniodo compu- 
espanto era ainda maior quando a tador. O roteiro dos outros quatro 
imagem criada no micro era proje- filmes jS estS pronto a espera de um 
tada no video cassete. aparecendo patrocinador. E na pesquisa da lin- 
numa tela grande de televisSo. guagem do desenho com o uso do 

computador como recurso expres- 
A Oficina, dirigida por Daniel sivo, \£ foram desenvolvidos dois 
Schorr, com formagSo em comuni- programas em linguagem BASIC, 
cagao visual, e Marcos Magalhaes, 'Traga” e "Edita", para iniciagao 
cineasta conhecido pela realizagao das pessoas na arte do desenho 
do desenho animado "Meow", pre- animado. Maiores informagoes so- 
miado no Festival de Cannes, fun- bre a Oficina de Animagao podem 
ciona na Rua dos Artistes, 199, ser obtidas pelo telefone (021) 
no bairro carioca de Vila Isabel. 286-9877. 

Diacon leva Informatica 
a medicos e dentistas 

A Diacon InformStica, de Sao Paulo. estS langando um con- 
junto de programas que permitirS Ss clfnicas mSdicas e odonto- 
Idgicas substituirem as tradicionais fichas de pacientes por mo- 
dernos registros em discos, bem como controlar compromissos 
atravSs de uma agenda eletronica. A Diacon tamMm tern dispo- 
rt fveis mddulos especfficos para administragad financeira desse 
ramo de servigo. seus convenios e de estoques. 

De acordo com a Diacon. o ponto alto do conjunto 6 um pro- 
grama que permite efetuar pesquisas clfnicas cruzando uma gama 
muito ampla de informagoes, obtendo os resultados tanto na tela 
do micro como impressos. A Diacon personaliza programas con- 
forme as caracterfsticas especfficas de cada profissional e oferece 
treinamento na prdpria clfnica. Os pregos do servigo, programas 
e treinamento variam, a partir de 60 ORTN. Outras informagoes 
poderao ser obtidas pelo telefone (011) 572-6168. 



Novo Naja 



A Kemitron acaba de langar o seu micro compatfvel com CP/M: o 
Naja 800, que, utilizando o microprocessador Z-80A, tamMm 4 total- 
mente similar £ linha TRS-80 (modelos III e IV). O novo produto da 
empresa mineira apresenta as seguintes caracterfsticas em sua configura- 
gao mfnima: 128 Kb de memdria RAM e 14 Kb de EPROM para o inter- 
pretador BASIC; monitor de 12”, com possibilidade de operar em trSs 
formatos diferentes e tamMm em modo normal ou reverso (selecionSvel 
por software); teclado (tipo mSquina de escrever) com 70 teclas e um 
teclado numSrico reduzido. dois drives de 5 1/4" embutidos na UCPe 
ainda cinco slots para conexao de expansoes. 

O Naja 800 pode tamMm ser equipado, opcionalmente, com placa 
de alta resolugao grafica (640x240 pontos), disco tipo Winchester, inter- 
face para comunicagao serial e sintetizador de voz. Mas, sem duvida, 
uma das grandes novidades do rec6m-langado equipamento 6 que ele j£ 
4 compatfvel com o CP/M 3.0, da Digital Research. 

Caneta fotossensi'vel 

A BIT - Servigos de Processamento de Dados Ltda., empresa de Por- 
to Alegre, acaba de langar no mercado uma caneta fotossensfvel. A ca- 
neta, ao interagir com as cores emitidas pelo vfdeo de um televisor ou 
de um monitor ligado a um computador, digitaliza os vdrios compri- 
mentos de ondas para que a CPU interprete os dados atrav6s de um 
software. A nova caneta fotossensfvel jd est4 sendo comercializada e seu 
prego 4 de Cr$ 49 mil e 900. 



Os sistemas 
da Stalo 

A Stalo, industria do Parana, 
criada em maio deste ano, 
desenvolve em sistema de OEM, 
como "System House", tr§s linhas 
de produtos: Stalo SMU, um 
micro monousu6rio, multi-tarefas; 
o Stalo STS, micro multiusu6rio 
e o Stalo NET SRE . Duas 
outras linhas de produtos da Stalo 
s£o os sistemas aplicativos MIG 
(integrado gerencial); INDICARE 
(an£lise econdmico-financeira e 
patrimonial dinamica) e 
DECISOGRAMA (estrat4gia de 
gestao por projetos e simulagdes) 
e software bfeico desenvolvido 
pela Microbase. 



Calculadoras 
de bolso 

A Sharp est4 colocando no mer- 
cado tres novas calculadoras de 
bolso, todas com dimensoes redu- 
zidas. Os modelos E L 863 e E L 345 
funcionam com c6lula solar, que 
substitui as baterias ou pilhas con 
vencionais. A cdlula permite ofun- 
cionamento normal da calculado- 
ra nao somente com energia solar 
mas tamMm com qualquer tipo 
de luz artificial. O modelo EL 860, 
tipo cartao de crddito, pesa apenas 
39 gramas e funciona com bateria. 
As trds novas calculadoras reali- 
zam as quatro operagoes Msicas, 
e ainda raiz quadrada, potencia- 
gao, porcentagem e rflculos com 
memdria. 
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unitron 

ci base ckz urn sistcmci 



intaligante 



Q 



luanto mais 

complexo for um sistema. 
mais solida e contiavel 
deve sersua base. 

Quando voce tern um 
micro da U nitron como 
principio inteligente. voce 
tambbm tern a certeza de 
que o atendimento de 
suas necessidades em 
processamento de dados 
estd assegurado. E a 
palavra de quern 
trabalh a con tin uam en te 
para oterecer uma 
tecnologia sempre atual 
ao usuario. E o que os tatos demonstram 
Na sua categoria. o Unitron andou sempre na 
t rente Alem de contarcom uma intinidade de 
programas. testados e aprovados. e os mais 




diversiticados acessorios 
de expansao - entre 
modules, interfaces e 
peritericos -o Unitron 
agora pode ser 
conectado. via teletone, a 
todas as redes exist entes: 
Aruanda. Cirandao. 
Interdata. Cyber. 

Videotexto. CMA. etc Ou. 
entao. ds redes 
particulars, acessando 
outros micros ou 
comunicando-se com 
computadores de grande 
porte. na tungao de 

terminal inteligente Portanto. se voce deseja um 
processamento de dados com qualidade . tale 
com nossos revendedores autorizados. Para cada 
caso. uma solugao inteligente Do principio ao tim. 




unitron 

CAIXA POSTAL 14 127 - SAO PAULO - SP - TELEX (Oil) 32003 UEIC BR 



Um crime monstruoso ocorre numa mansao. VocS deve descobrir o assassin o, 
a arma e o local da tragedia. Este 4 um desafio para... 



O super-detetive 

Alberto Cezar de Carvalho 



O programa Detetive 6 segura- 
mente uma boa op$So para os 
fins-de-semana chuvosos. Ba- 
seado no famoso jogo de mes- 
mo nome fabricado pela Estrela, o jogo 
foi desenvolvido em um equipamento 
CP-200, embora seja inteiramente com- 
pativel com os demais micros da linha 
Sinclair, desde que com um mfnimo de 
16 Kbytes. 

0 programa 6 auto-explicativo e per- 
mite de um a cinco jogadores. Um maior 
numero de jogadores torna o jogo mais 
interessante, e recomenda-se, a exemplo 
do jogo original, o uso de ldpis e papel 
para um melhor controle das suspeitas. 

0 JOGO 

0 crime da-se numa mansao, em qual- 
quer de seus compartimentos. 0 com- 
putador ir i escolher aleatoriamente um 
criminoso, a arma e o local do crime. 
Voce deverd descobrir estes tres itens 
para sagrar-se vencedor. 

Seu mdtodo de investigate 6 por ex- 
clusdo. Isto porque o computador distri- 
bui aleatoriamente entre os suspeitos 
(morotista, camareira, Blanche, Dalas, 
Lane, Marfim e o mordomo) uma carta, 
contendo ou ndo o nome de um suspei- 
to; outra contendo ou nfo uma arma 
(revdlver, corda, faca, gds e veneno) e 
uma terceira carta contendo ou nfo um 
compartimento da mansao (quarto, sala- 
tv, hall, estudio, salSo, cozinha e servi$o). 

Voce deverd investigar o crime indo 
para o local suspeito, atravds de jogadas 
com o dado eletronico (lanfado pelo 
computador), e perguntando aos habi- 



OUflGTO 

B 




SALA-TV 


E5TUC I j 

§ 


SfiLAO 

Li 





COZINHA 


SEOvIIO 





Qualquer um dot compartimentos da mansao 
pode ser o local do crime... 

tantes que encontrar se, dentre as cartas 
que possuem, estd determinada arma e 
determinado suspeito. 

Como o computador sorteia um lo- 
cal, uma arma e um criminoso e os re- 
tira do jogo, voce, por eliminasdo das 
cartas que cada suspeito possui, ir d, ine- 
vitavelmente, desvendar o crime. Por 
exemplo, se nenhum dos sete suspeitos 
possuir a carta contendo o nome MOR- 
DOMO, 6 porque ele 6 o assassino; se 
nenhuma carta contiver a arma FACA, 
6 porque ela foi o instrumento mortal; 
e se nenhum dos locais explicitados nas 
cartas encontradas for o SALAO, pode 
contar que foi 14 que o crime ocorreu. 

DIGITACAO 

— Carregue o MICRO BUG na memdria 
do micro e crie uma linha 1 REM 
com 900 caracteres. Crie tambdm 
uma linha 2 REM sem nenhum card- 



ter (esta linha serve apenas para evi- 
tar problemas na listagem da linha 1). 

— Digite o Bloco Assembler e no final 
retome ao BASIC. 

— Digite a listagem BASIC do progra- 
ma, prestando muita atento para 
ndo errar, e grave uma cdpia em fita 
cassete para evitar aborrecimentos. 

— Rode o programa e tente descobrir o 
misterioso assassino... 



Alberto Cezar de Carvalho 4 engenheiro civil, 
formado pela Universidade Federal de Juiz de 
Fora. 4 professor de Processamento de Dados 
e de Fortran, respectivamente no ColAgio T4c- 
nico da Universidade Federal e no ColAgio Po- 
litAcnico Pio XII, ambos em Juiz de Fora. Le- 
ciona ainda Estradas e MecSnica dos solos no 
ColAgio Ttcnico da Universidade. Possui um 
CP-200, no qua / desenvolve programas nas 
Areas de Engenharia e Lazer. 



Bloco Assembler 
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IF 
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80 


80 


80 
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80 
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80 


80 


80 


80 
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80 
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80 
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80 


80 


80 


80 


80 
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23 


11 
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01 


16586 


20 


00 


ED 
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0C 


40 


22 
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01 


21 


00 


09 


ED 


58 
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16602 


13 


01 


85 
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ED 
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0C 
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40 


01 


20 


00 


ED 


B0 


CS 


16626 
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06 
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0E 


16634 


21 


7E 


FE 


76 


28 
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F2 


16642 


40 


77 
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0D 


20 


F3 


10 


EF 
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C9 


2A 


OC 


40 


11 


24 


41 


01 
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A COMPUMICRO 
JATEMO 
MICROENGENHO 2. 




A Compumicro e a unica empresa do Rio que comercializa 
exclusivamente micros para uso protissional, em um amplo e cantor- 
tavel escritorio. 

Com uma equipe de vendas formada somen te por protissio- 
nais de intormatica, a Compumicro vem se destacanao como uma 
das maiores e mais bem preparadas empresas do setor. 

Isto se deve ao fato da Compumicro oferecer um atendimento 
altamente especializado, so comercializando equipamentos de qua- 
lidade comprovada. 

Como um sucesso puxa o outro, a Com 

l -J: • - r _ t ri 



m 



Uomo um sucesso puxa o outro , a Uompumi- 
cro coloca a sua disposicao o Microengenho 2. 

O unico micro computaaor nacional totalmente 
compativel com APPLE He americcmo. 

O Microengenho 2 gera caracteres em portu- 
gues mai usculos, min usculos e acen tuados apartir 
ao teclado. Pode ter resolucao grafica de 107.520 
pon tos no video (dobro do APPLE II Plus). E ainda 
possibilita o uso de uma placa de modem 1275A, 
operando em modo FULL-DUPLEX (cirandao) e 
HALF-DUPLEX (MicroxMicro) substi tuindo o modem 
extemo convencional. 

Venha a Compumicro e comprove esfe su- 
cesso pessoalmente. 

Compumicro. Omelhorem micro pelas 
melhores condigdes. 



PUXA SUCESSO. 




luirtosj 






fdi<6«» 



0 SUPER DETETIVE 



MUICIfiES Mil CIHMTIIIIES 

Voce noo pode deixar de possuir 
os seguintes livros: 

MICROKIT 

LINII SINCIIII-TIIZ, 13, IS, CMtl E IITIIS 



cursode basic 




ciisi ie iisie - «m o 1 11.300.0e 

Teona, exeeplos e exercfcios resolvidos, 
explonados et 10 aulas, oferecendo ueaabor- 
dogee staples e dir eta E'ue livro diddtico 

(IISI IE HSII - 111.2 Crl 11.380,00 

Progratatfo avancada 
Coepleeenta o livro Curso de Basic - Uol.l 
e ensina coio desproteger progroeas da linha 
Sinclair; copiar fitas e coeo usar o Hi-speed 
no TK85 e CP2B0. 

LINII IMLE - CtHMTIlEISeiH IMLE/TI2III 



CAHUX AIBKTO C ABKU 




77 MIUIHIS Mil LINII IMLE Crl 16 me* 

Atroves de JOGOS e PROGRAHAS EDUCATIUOS 
voce sera induzido a pensar, resolver proble- 
■as, e toear conhecieento de coeo podera' 
usar bee o coeputador, divertindo-se 1 

MICIIHIS CIHEICIIIS II LINII IMLE 

Paro Peguena-Eepresa Crl 17 3**, 6* 

Traz a listagee coepleta dos prograeas 
coeo Hala-direta, Controle de estoque e 
Contas a receber e a pagar. Faca seu pedido 
agorai 



iTEH^ii: escolha aqui sua optao; 

Qcurso de Basic-Vol.lQcurso de 
Q77 Prograeas QPrograea 



Curso de Basic-Uol.2 
Prograeas Coeerciais 



Note 

End 

Cep Cidade. 



Estado. 



Envie ue cheque noeinal para ATI Editora Ltda. 
Av Presidente Wilson, 165 grupo 1210/1216 
Cep 20030 - Rio de Janeiro - RJ. 

Cheque Banco Ualor 



Detetive 



|PEM 

DIM ft (7) 

FOR N«1 TO 7 
LET >.*="6513274 " 

LET A(N) «VAL IX* (N) ) 
NEXT N 

SAUE "DETET P.'S" 

FRST 

GOSUB 3000 

SLOU 

LET K =64 

GOSUB 60 

GOTO 150 

F0R NC1 T ~ : “ 



573 NEXT N 

576 LET 5*t304) ■ " “ 

577 LET 5* 1272) " 

580 LET 5* (240) a" " 

582 LET SS (280) *" " 

583 LET S* (267) »" ” 

584 LET 5*1619) = " " 

536 LET S> 1 624 ) ■" - 
588 LET St i 563 • «" " 

590 G05U6 598 

592 GOTO 610 
598 FAST 

600 FOP N = 1 TO 704 
602 PRINT 5* IN), 

604 NEXT N 

605 PRINT RT 10,0, "f; AT 



"T AT 10 10 r . AT 10 . 15 T «T 
10,23; 

606 GOSUB 2000 

609 RETURN 

610 PAND U5R 16651 

611 RAND U5P 16663 

615 DIM A* (6,9) 

616 .-ET A* (1) = REVOLVER" 

617 LET A* (2) »"CORDA" 

618 LET A* (3) s'FACA" 

620 LET A* (4) = " GAS " 

621 LET A* (5) «"UENENO" 

522 wET K*INT ( RND * 10 1 

.623 IF K < =0 OP K >5 THEN GOTO 62 

625 LET A* (6) =A* <K> 

627 LET A* 1 K ) »" NAO TEM" 

628 LET E«K 

630 DIM L* 18,8' 

631 LET L* (1) = "QUARTO" 

632 LET L*(2)= 5ALA-TV" 

633 uET L* (3) = " MALL " 

634 LET L* 14) -"ESTUDIO" 

635 LET L* i5> = 5ALA0" 

636 LET LS (6) = COZINHA" 

637 LET L* (7) = 5ERVIC0" 

638 LET K.INT i RND A 10 1 

^639 IF K < =0 OR K > 7 THEN GOTO 63 

~540 LET L* (8) =L ( (K) 

642 LET L*IK)= NAO TEM" 

643 LET V«K 

645 DIM C* (8 , 101 

646 LET C*ll) *"BLANCHE” 

647 LET C* (2) *"DALA5" 

646 LET C* 13) * "LANE " 

649 lET C* 14) ="MARFIM" 

650 .ET C* (5) = MORDOMO" 

651 i_ET C* <6) = M0T0RI5TA" 

652 LET C* (7) *"CAMAREIRA" 

653 LET K = InT RND + 10' 

( S5^ IF K < *0 OB K>5 THEN GOTO 65 

655 LET C* (3) =C * (K) 

657 LET T*=C*(K) 

658 LET T.K 

660 LET C* IK) = NAO TEM" 

665 DIM 5(7,3) 

667 FOR L*1 TO 5 

668 LET 5 (A <L) ,1) «L 

669 NEXT L 

670 LET 5 (A (6) ,1) =0 

671 LET 5 >. A (7) , 1) =0 
676 FOR L=1 TO 7 
678 LET 5 (A (Li 2) »L 
680 NEXT L 

684 FOP L«1 TO 7 

686 LET 5 < A ■ L 1 ,3) =L 

687 NEXT L 

689 FOR N«1 TO 7 

691 IF 5 (N , 1) *E THEN LET 5(N,1) 

=0 

693 IF 5 (N , 2 i »V THEN LET 5(N,2l 

»0 

695 IF 5 ( N , 3 ) »T THEN LET SIN, 3) 

=0 

697 NEXT N 
710 DIM U(5l 
715 DIM V i 5 ‘ 

720 LET 11=0 
725 FOR N=1 TO 5 
730 LET U (N) »0 
732 LET V (N) =0 
735 NEXT N 

738 GOSUB 900 

739 BAND USP 16651 

740 GOTO 3200 

801 CLS 

802 PRINT AT 10,7; tiflM , TAB 
t |0,A*(6) , TAB 20. L* 6' TAB 20, C* 

803 GOSUB 890 
810 FOR N«1 TO 7 

812 IF C* IN , TO 7) »"NAO TEM" TH 
EN GOTO 830 

814 PRINT AT 10 , 5; C* (N) 

816 GOTO 840 

830 PRINT AT 10.5,C*(8) 

840 IF 5 IN , 1) < =0 THEN PRINT TAB 
15; "NAO TEM" 

842 IF 5 (N , 1) >0 THEN PRINT TAB 
15. A* (5 (N, 1) ) 

845 IF 5 (N , 2) ' 0 THEN PRINT TAB 
15; L* (5 IN .2) ) 

846 IF S(N,2)<«0 THEN PRINT TAB 
15, "NAO TEM" 

847 IF 5 (N , 3) >0 THEN PRINT TAB 
15, CS (S IN , 3) ) 



, AT 10, 15 



82 PRINT AT 6.07^ 
84 PRINT AT 12 ,0, ■ 



90 FOR 1=1 TO K 
110 RAND USP 16514 
120 NEXT I 
130 'OR N=1 TO 6 
135 PAND USP 16578 
140 NEXT N 

145 RETURN 

150 PRINT HK 



152 NEXT N 

153 GOSUB 155 

154 GOTO 175 

160 BAND USB 1662"’ 
162 PRINT AT c 0 , 
165 LET K*e 
170 G05UE 60 
172 RETURN 



198 GOSUB' 1 
200 PRINT I 



NEXT N 
GOSUB 155 

PRINT "1 0UANTO5 U0GAD0RE5 
INPUT I 

IF I >5 THEN GOTO 236 
PRINT AT 13,22, I 
'OR N«i TO 20 
NEXT N 
DIM 0* .1.20) 

DIM C (I) 

LET OUANT.I 



5 FOR N = 1 TO I 

5 INPUT 0*(N> 

l PRINT "> " , CMR * (N»156) 

IN) , , , 

l NEXT N 

i FOR N*1 TO 20 

3 NEXT N 

3 GOSUB l” 

L PRINT 

i FOR N«1 Tfl ii 

1 NEXT N 
3 CLS 

5 DIM 5* ' 705) 

) FAST 

L FOR N=1 TO 705 

2 LET 5* (N) s" “ 

1 NEXT N 

3 FOR N»1 TO 32 
! LET 5* IN) «••-" 

5 lET 5* (N+672) 

2 LET 5* (N+320) 

5 NEXT N 

5 FOR N =33 TO 641 STEP 32 
! LET 5* IN) « I " 
t LET S* (N+31) «"J" 

> LET 5* (N+10) 

) LET S* (N + 15) 

) LET S* (N+23) 

> NEXT N 

) LET 5*1337) *" " 

. FOR N«331 TO 335 
! LET 5* IN) «” " 







6 48 IF 5 ( N , 3 • <=0 THEN PRINT TAB 
15. NAO TEM" 

see sosub see 

870 NEXT N 

.8-5 PRINT A- .0,0, 



f i fi 



w 

835 PRINT AT 21,25, 



AT 2 



THEN GOTO 385 



1,25. " <ENT 
890 IF INKEy S = " 

892 CLS 
894 RETURN 
905 LET K *0 
907 FOP Nil TO OUANT 
910 LET C(N'*INT 1 PND *704 1 
915 IF C ( N i <*0 THEN GOTO 910 
920 IF St(C <N) +1) < > " " THEN GOT 
0 910 

925 LET 5S C <NI + 1. mCHRS <N*156> 
930 PRINT AT INT (C < N l /32 1 . C IN ) 
-INT ( (C (N) -1) /32< *32, CHRS in + 15 



»39 

940 

942 

944 

945 

946 

947 

948 
950 




AND C(II) >34 



INPUT 

if X*>"5” THEN GOTO 950 

IF Vdl.ml THEN GOTO 3200 

LET U(II> si 

GAND USP 16663 

INPUT PS 

GO SUE 2100 

GOTO 952 

LET Ps0 
GOTO 2400 
PRINT AT 16.5 



•• THEN GOTO 954 
5” THEN GOTO 220 



956 IF INKEY is" 6" AND C (II) <673 
THEN GOTO 2250 

957 IF INKEy $= 

THEN GOTO 2230 

958 IF INKE Y $s"8" THEN GOTO 231 

0 

960 IF INKEy S< >"5" AND INKE S < > 
"6 AND INKEY i < > "7" AND INKEy f < • 
"8” THEN GOTO 954 
965 SAND USR 16663 
970 PRINT AT INT 1C < II) /32) , C ( Z 
I) -INT ( (C (II) -1) /32) *32; " " 

972 LET St 'C HI) *li «” " 

974 IF Cl XI) =0 THEN GOTO 954 
980 IF SS (D+ll t>" ■' THEN GOTO 2 
370 

982 LET 5i i D + l) sCHRi (11+156) 
935 LET C (II) sD 

990 PRINT AT INT ( C ( I I) /32> , C ( I 
I) -INT ( (C ( II) -1) /32> *32, CHP» il 
1+156) 

994 G05UB 2000 

995 PAND USR 16651 
1000 GOTO 954 

2000 PRINT AT 5 2. "QUARTO" ; AT 5 
11. "HALL , AT 3.16. "SALA-TU". AT 4 
,24, "ESTUDIO" 

2010 PRINT AT 15,2;" SAL AO " , AT If 
, 11; "HALL"; AT 15 . 16 , "COZINhA .at 
15.24. " 5ERUIC0" 

2040 PETURN 

CLS 

PRINT AT F 9 ; Or 7 
I . I AT J 5 I I AT 

>; "I I" . AT 10 , V "I I" 

11,9; I I". AT 12.9. 



2110 

2112 



9 

AT 



T??5 

2116 
2120 
2125 
2130 
2135 
*40 



g 



LET PsINT (RND+6) +1 
IF R>6 THEN LET Rs6 
GOSUB (P+101 +2120 

PETURN 

PRINT AT 9 
RETURN 
PRINT AT 



13; 

7,14. ■" , AT 11,10 



45 RETURN 
150 PRINT AT 
", AT 11,14, “| 
155 RETURN 

PRINT AT 

?ETu?N 
PRINT AT 
■L ".AT 
RETURN 
PRINT 



7,10. •'■".AT 9,12 



7,10 



7,10' 

11 . 10 . 



% V 

s li 1 ?*;* % 



2160 

, 10 , 

2165 
2170 
10 . - 
2175 
2180 
10 "L 

2185 PETURN 
2210 uET D *C (II) -1 
2220 LET KsK+1 
2230 IF K > R THEN GOTO 
2240 GOTO 965 
2260 LET DsC (II) +32 
2270 GOTO 2220 
2285 LET DsC (II) -32 
2295 GOTO 2220 
2315 LET DsC (II) +1 
2320 GOTO 2220 
2340 LET Ks0 

2355 IF INKEY is" THEN GOTO 



2340 



2357 CLS 
2360 GOTO 
2371 CLS 



2355 



3200 




2382 LET R=0 
2385 GOTO 3200 
2410 CLS 

2415 FOR X =1 TO 4 

2416 PRINT AT 12,: 
9 AT 12,7 INVf 
10,0. 



GOTO 2380 




2446 IF LEN 



) 




2455 fop Y*i 


932 


NEXT N 


2456 IF u*(l 


933 


5L0U 


ETRArsLEN US 


9 34 


IF INKEYS* 


THEN GOTO 934 2457 IF US(1 


935 


RETUPN 


2480 


»J6 


CLS 


2460 "OR l *1 



I <3 THEN GOTO 2440 

ro 7 

»C»(X,1) THEN LET L 
<>CilX,l> then GOTO 



2465 IF Ut(L> < >CiCX,L> THEN GOTO 
2480 

2470 NEXT l 

24-2 PRINT AT 4,ll,C»lX) 

2474 LET UsX 
2476 GOTO 2490 

2480 NEXT X 

2481 IF ui : >Ci > 6 . TO lEN us The 
N GOTO 2440 

2432 PRINT AT 4,ll;Ui 
2483 LET UsT 
2490 pPIn~y 



2495 INPUT i 

2496 IF lEN Yg<3 THEN GOTO 2495 
TO 5 

sAi IX , 1) THEN LET L 



•Ai(X,l) THEN GOTO 



TO LETPAS 
>AiCX,L) THEN GOTO 



2505 FOR Ml 

2506 IF Yi(l) 

ETRASslEn y i 

2507 IF fidi 
2550 

2510 FOR l s 1 
2515 I® (L 1 
2550 

2520 NEXT l 
2525 lET Y*X 
2530 PRINT at is 
2535 GOTO 2-00 

2550 NEXT * 

2551 IF i i As t6 . TO LEN Yi> ThE 
N GOTO 2490 

2555 PRINT AT 15.10, 1 ",YS 

2556 LET YsE 

2558 GOTO 2700 

2560 PRINT AT 3 0. 



10 . 



. AS (XI 



5566 LET 



LINsInT (CHI- 
COL sC i II) -INT 



/ 32 ) 

( i C(II) -1 



«1 AND COL < *10 Then 



2567 IF LIN > si AND LIN < *20 THEN 
IF COL *12 AND COL <*15 THEN GOTO 
258- 

2566 IF L IN > si AND LIN<*9 THEN G 
OSUE 2572 

2570 IF LIN > *11 AND LlN<s£0 THEN 

GOTO 2580 

2571 RETURN 

2572 IF COl: 

LET Q| S " OUAPTO 
25-4 IF COL > »17 AND COL 

LET 0|: ' SAlA-T'.'" 

2576 IF COL >*25 AND C0L<s31 THEN 
LET 08* ESTUDIO" 

2578 RETURN 

2580 IF COL *1 AND COL<*10 THEN 
LET 0is"5ALA0" 

2532 IF COL, *17 AND COL 
LET- 0S*"C0ZINHA" 

2584 IF COL >*25 AND COL <*31 THEN 
LET GS * " SERUICO" 

2586 RETURN 

2587 LET Ot ="HALL" 

2588 RETURN 

2589 LET LETRA3=lEN Ot 

2590 FOR x * 1 TO 7 
2598 FOP L *1 TO LETPAS 

2600 IF 99(L) OLIIX.L) THEN GOTO 
2690 



>23 THEN 



=23 THEN 



AT 


11 


2610 


NEXT L 






2620 


LET Q*X 






2630 


PRINT AT 


AT 


9 . 


2640 


GOTO 2698 






2690 


NEXT x 


AT 




2695 


PRINT AT 


9 . 


2696 


LET 0 *U 






269e 


RETURN 






2ZSL 


PRINT AT 



“10 INPUT Z$ 

2720 IF LEN Zt<3 THEN GOTO 2710 

2730 FOR X*1 TO 7 

2731 IF Zi(l) «Ci»X,l> THEN LET L 
etrasslen zt 

2732 IF Zt(l) <>Ci(X,i: THEN GOTO 
2300 

2740 FOR L * 1 TO LETRAS 
2750 IF Zt (L) < >CS (X ,L> THEN GOTO 
2800 

2760 NEXT L 
2770 LET Z*x 

2780 PRINT AT 20.10," ",Ct(X> 
2790 GOTO 2810 
2800 NEXT X 



2801 IF ZioCite, TO LEN ZS> The 
N GOTO 2700 

2805 PRINT AT 20.10;" ",ZS 

2806 IF US=CS<8, TO LEN US> THEN 
LET Z =9 

2807 IF US CS(8. TO LEN US) ThE 
N LE- Z*T 

2811 FOP Nil TO 15 

2812 NEXT N 




AT 13,5, Zt 

2817 IF S ( U , 1 ) *Y THEN LE T CAPTAs 
CARTA^l 

2820 IF S IU , 2 ' *0 THEN LET CAPTAs 
CARTA *1 

2824 IF S<U.3'sZ THEN LET CARTA* 
CAPTA+1 

2823 PRINT AT 15.0;" DE5TES , 
POS SUC ".AT 17,0; 

. ("NENHUH ITE 
M . " AND CARTAsO) ♦ ( "UM ITEM." AND 
CAPTAsl) + i "D0I5 ITEN3." AND CAP 
TA*2' ♦ ("TPE5 ITENS." AND CAPTA*3 

2630 PRINT AT 21 0;" JA DE5UE 
NDOU 0 CRIME ( S/N) *»" 

2332 INPUT x* 

2834 IF X*="N" THEN LET p*0 

2835 IF xt="N" THEN GOTO 3200 

2836 CLS 





2850 INPUT OS 

2852 PRINT AT 20, 15. OS 

2853 CLS 

2e54 IF CS'6 TO lEN Z 
AS (6 TO LEN VS sYS ANI 
LEN OS) =C S THEN GOTC . 



2862 GOTO 3309 

3002 LET KsINT iRND+5) 

3010 fop Nil TO 7 

3020 LET A (N ) *A (N) -K 

3030 NEXT N 

3040 f 0 R n=1 TO 7 

3050 IF A (N) < *0 THEN GOSUB 3070 

3055 NE‘T N 

3060 GOTO 3130 

30-0 FOP M *1 TO 7 

3030 FOR X*1 TO 7 

3090 IF A ( X ) *M THEN GOTO 3120 

3100 NEXT x 

3110 LE- A (N. *M 

3115 GOTO 3040 

3120 NEXT M 

3130 RETURN 

3200 CLS 

3210 LET II*II+l 
IF II 'OUANT 
U(II 

M 



THEN GOTO 



"HEN 









12. 9, OS ill) 



3220 
3230 

JOGUE 

AT 14 0 __ 

3250 PRINT AT 
3250 GOTO 937 
3270 LET I I s0 
3272 for N * 1 TO OUANT 
3274 LET v (N) *0 
3276 NEXT N 
3230 GOTO 3210 

3300 for N * 1 TO 40 

3301 NEXT N 

3302 LET UIII) *1 

3303 GOSUE 3350 

3304 FOR N*1 TO OUANT 

3305 IF U(N)s0 THEN GOTO 3200 

3306 NEXT N 

3309 CLS 

3310 PRINT AT 12,0. "QUER JOGAR 0 
UTRA PARTIDA (S/N) ?" 

3320 INPUT ZS 

3325 IF ZS*"5" THEN CLS 

3330 IF ZS *" 5" Then GOTO 23 

3340 GOTO 800 

3350 LET SS(C(II) +1) *" " 

3355 RAND USR 16663 

3360 PRINT AT INT 1C ( II) /32) , C ( I 

I) -INT ( (C (II. -1) /32) *32, 

3365 RAND USR 16651 
3370 RETURN 



£ 
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Se voce tern um micro da linha TRS-80 / ou III, com 16 ou 48 Kb de RAM, 
teste sua habit idade combatendo os terrfveis Fagocitons 



Dr. Kasklin e os 
Fagocitons 



Rui Ribeiro de Bastos 



D outor Kasklin e os Fagoci- 
tons d um jogo em BASIC 
de aproximadamente 4 Kby- 
tes, sem REMs, com tres pe- 
quenas sub-rotinas em linguagem de md- 
quina. Estas sub-rotinas posicionam-se 
no topo da memdria do seu micro e ser- 
vem para criar efeitos especiais. quase 
impossiveis de serem produzidos pelo 
BASIC devido a sua lentiddo. 

A primeira sub-rotina (A * USR (0 + 
256 * N)) tern por fun^ao a emissao 
de sons pela porta de saida do cassete, 
aceitando em BASIC um valor numdrico 
que determina a nota a ser tocada e deve 
estar entre 0 e 127. A segunda (A = USR 
(1)) inverte todos os caracteres grdficos 
do vfdeo e transforma os espa 90 s em 
branco em espafos inversos. A terceira e 
ultima sub-rotina (A = USR (2)) vai de- 
crementando cada cardter atd que todos 
sejam caracteres de espafo (CHRS(32)), 
dando a impressao que o video estd se 
derretendo. 

0 objetivo do jogo d a eliminafffo do 
mdximo de invasores - os Fagocitons - 
possfvel. Voce inicia o jogo com quatro 
vidas. Ganha uma a cada 10000 pontos 
completados e perde uma a cada Fagoci- 
ton que aterrissa ou quando sdo dispara- 
dos mais de cinco tiros sem sucesso con- 
tra o mesmo invasor. Observe que seu 
canhdo anti-adreo de laser tern movi- 
mentos mais amplos do que os dos inva- 
sores, isto d, voce pode pular de um lado 
para outro do vfdeo, enquanto que os 
invasores limitam-se a descer aleatoria- 
mente. 



Cada invasor ao ser destrufdo tern 
um valor especffico determinado pelo 
ASC (primeiro cardter), decrescido de 
duas vezes o numero da linha em que 
foi eliminado. A cada jogo d criado um 
novo campo estelar e ao seu final sSo 
apresentados os cinco mais altos escores 
e, se for o caso.acrescentado um melhor. 
Quando ningudm esta jogando sao mos- 
trados os melhores escores ou a apresen- 



ta^ao do jogo. Para fadlitar o program a 
estd numerado de 10 em 10, o que per- 
mite que se utilize, para sua digita^o, o 
comando AUTO. 



Rui Ribeiro de Bastos i estudante de Enge- 
nharia Metalurgica da Universidade Federal do 
Rio Grande do Sul. e hi um ano tem um mi- 
cro JR Sysdata no quel trabalha em BASIC e 
Assembler. 



Dr. Kasklin e os fagocitons 



10 

20 'Ms Dr. Kasklin e os fagocitons »M 
30 'M« POR t Rui M. Ribeiro de Bastos Ms JOGO »M 

40 'Ms Rua Felipe Camarao No. 230 apto 301 r#m*r#imrsmsMsh 

50 'Ms CEP 90000 PORTO ALEGRE R.S. BRASIL M 05/05/1904 s* 

60 'M»M*M»M*M*M*M*M*MsN»M»MeM*MeMsNsM*M»MsMsMsM*M*MsMsMsM*M*N*N 
70 CLS*PR I NT" — sissssssss# ESPERE UN M0MENT0 EST0U TRABALHAND0 s 
ssssssssss — "«G0T0560 

80 CLEAR666 1 D 1 MG ( 50 ) , C ( 30 ) » B ( 1 ) -36400 * B-B < 1 ) : B* < 1 ) -"Ru i . " t G0SUB5 
00 

90 RANDOM! FORK -1 T010* CS<K ) -CHRS ( RND (4)sl6+112) +CHR% < RND < 16)s4 + i2 
4) IF0RI-1T041 Ct < K ) -CS( K ) ♦CHRS < RND ( 64 ) + 127 ) I NEXT « CS ( K ) -Cl ( K ) +CHRS 
< RN0( 16)»4 + 124 )+CHRS < RND (4)*16+112> ♦CHRS < 26 ) +STR INGS (9,24) 

100 FOR I-1T010* CS (K)-CS<K) +CHRS ( RND< 64 ) + 1 27 ) «NEXT I CS ( K ) =CS< K ) +CH 
RS< 26 > +STR IN- S <9,24) ♦CHRS ( RND <4) + 127> +CHRS < RND< 16 > ♦ 127 > I FOR I -1 TO 
4«CS<K>-CS<K CHRS< RND (64 )+127> iNEXT 

110 CS< K >-CS t K >+CHRS<RND< 16 ) + 127 ) ♦CHRS ( RND ( 4 > + 127) «NEXT 
120 I-USR(2> IGOSUB620:GOSUB520 

130 PRINra400,"s Dr. Kasklin e os Fagocitons s"3652,"USE "CHRS<6 
0)"- PARA MOVER 0 CANHA0 PARA ESQUERDA"a588 , "USE -"CHRS<62>" PAR 
A MOVER 0 CANHAO PARA DIREITA. "3530, "USE <ESPAC0> PARA DISPARAR" 
, iF0RK-lT06:PRINT3Ks6+777 r AS(K ) ; iNEXT 

140 S-0 *PR INT3912 , "PR ESS I ONE <ESPAC0> PARA COMECAR"; IF0RP-0T050! 
G(P )*1 iNEXT 

150 FOR I=0T015sA=USR ( 1 ) *NEXT 

160 FORC-0TO4OOS AS- INKEYS: PR INT3923, " :G0SUB600«PRINT3923 

, "ESP ACO" t ! IFAS-""THENNEXT : A-USR < 2 ) :G0T0390ELSE IFAS< >" "G0T01 60 
170 Q=0:L=Q*CLS 

1 80 FOR I -0T030 s C ( I ) -RND < 896 ) +64 : NEXT 
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190 PRINT30," "S*10" "STR ING* ( 4-L , 65 >CHRl ( 31 >328 , K1856 , B • : X-RND ( 
6 ) » FOR I -0T030 : PR INT3C ( I ) , CHRS ( 46+ < I >20 ) *4 ) , I NEXT 
200 XS-AS(X) xP-RND(55)+965xM-RN0(50->+5 

210 D-0XF0RJ-1T014I A=USR ( 256* J*X ) t M=M+RND ( 7 ) +60 I IFM<64* J+4M- J»64 

♦5 

220 IFhXJ+1) *64-6M- (J+l)*64-7 

230 F0RH-lT02xN-PEEK(14400)XlFP)1014PRINTai014," "»xp-960x 

ELSEIFP(960PRINTSP , " "|XP-1014 

240 PR INT3H , X% j SP , D% ; : IFNANDONEXTELSE IFNANDi 28G0SUB460ELSEIFNAND 

32P-P-2ELSEIFNAND64P-P+2ELSEIFNAND4THEN120 

250 NEXT i PR INTaM, STRINGS (4, 32) | «NEXT 

260 FOR I-0T09 s A=USR < 1 ) I G0SUB600 1 NEXT xL-L+1 

270 PRINT31,S*10jSTR INGS < 12-L , 32 ) j x G0SUB610 

280 O-INT (S*i 0/1 0000) I IFS*10( 1000000T0300 

290 IFS* 10X0* 10000 >L-L-G(0> *G(0>-0 

300 IFL<4G0T0190 

310 FORR -0T025 « A-USR < 1 ) i G0SUB600 1 NEXT 
320 A-USR (2) 

330 IFB(5> >-S*10G0T0390 

340 F0RI-5T01STEP-1 

350 IFB ( I ) < S*10NEXT 

360 FOR J-5T0I+2STEP-1 

370 B <J)-B (J-l ) xBS(J)-BS( J-l > I NEXT 

380 B(I+l>-S*10iBS(I+l>-""xPRINT369,"N0V0 SCORE ENTRE OS CINCO M 
ELHORES III "3900,, «INPUT"N ONE (4 LETRAS ) "»BS( I+l > XBS( I+l > 
-LEFTS(BS( I+i ) ,4) 

390 CLS » PR INT327 ,KS3217, "SEU SCORE « "S* 103331 , "COLOCACAO" , " SCOR 
E","N 0 M E" * PR I NT 

400 FOR 1-1 T05 «PRINTTAB (14)1,8(1)," "BS(I)xNEXT 

410 PR INT3909 , "VOCE QUER JOGAR DE NOVO ? S i m ( S ) /Nao< N > ", 

420 FORG-OT04OOOxCS-INKEYlx IFCS-""NEXT t GOTO 120 
430 IFCS-"S"A-USR(2)xG0T0140 

440 IFCS-"N"A-USR ( 2 ) x FOR Y-0T0127 x A-USR ( 256*Y ) xNEXT * GOTO 120 
450 GOT 0420 

460 D-D+i i IFD)5G0SUB610>GOTO260 

470 FORE-P-61 TOhSTEP-64 sPR INT3E , CHRS ( 94 ) , x I -Ex A-USR (8960) (NEXT 
480 IF I > -HAND I < M+4G0T0530 

490 FORE-P-61 TOhSTEP-64 :PRINT3E," " , : NEXT x G0T0610 
500 DS-" "+CHRS(174)+CHRS(176>+CHRS(157>+" " x AS < 1 ) -CHRS ( 155 ) +S 

TR INGS( 2 , 1 40 > +CHRS ( 167 ) x AS ( 2 ) -CHRS ( 173)+CHRS( 166 ) +CHRS ( 1 53 ) +CHRS 
(158) :AS(3)=CHRS< 152)+CHRS( 167)+CHRS( 155)+CHRS( 164) xAS(4)«CHRS( 1 
67)+CHRS( 137 )+CHRS(134) +CHRS ( 155) 

510 AS(5)-CHRS( 166)+CHRS( 172)+CHRS( 156>+CHRS( 153) xAS(6)-CHRS( 156 
) +CHRS( 1 83 ) +CHRS ( 187 ) +CHRS( 172) xKS=CHRS( 157 > +CHRS ( 145) +CHRS ( 158 ) 
♦CHRS(148)+CHRS( 186>+CHRS( 129>+CHRS( 157>+CHRS( 145>+CHRS( 181 >+STR 
INGS(2, 170)+CHRS( 137)+CHRS( 149) x RETURN 

520 F0RF-0T0127 x SET ( F , 0 ) i SET <127-F,47) i A-USR ( 256* I NT < (F+5)/5) ) «N 
EXT :F0RF=0T047 »SET (0,47-F)xSET(127,F) * A-USR ( 256* I NT < (F+140>/5> >x 
NEXTIRETURN 

530 S-S+(ASC(XS)+J*-2>/10x IFB(S«10B*S*10 

540 PR INT31 , S*10" "STR INGS ( 4-L , 65 ), 356 , B ,x A-USR < 1 >x A-USR < 1 ) 

550 F0RK-lT010xPRINT3I-67,CS(K ) , x G0SUB600 s NEXT s G0T0280 

560 POKE- 136 ,9xIFPEEK(-136) -9I--136 * GOT 0570ELSEP OK E- 16536 , 9 * IFPE 

EK (-16536) -91 — 16536XG0T0570ELSEI-32665 

570 PR INTI I I-65536+I + ( 1-32665 ) *65536-1 SP0KE16561 , 1-INT< 1/256) *25 
6 xPOKEi 6562, INT( 1/256) i I-I+il IFPEEK ( 16396 X >201THENDEFUSR— 65536 
+ 1-65536* ( I -32665) EL SEP OK El 6526, 1-INT < I /256 ) *256 1 POKE 16527, INT( I 
/256 ) 

580 CLEAR 400 s AS-"CD7FOA7DFEOO2821FE0 12831 FE02C021003C0 10004 16007 
EFE20280316FF35230B78B 120F2BA20E7C90E20443E01D3FF 10FE443E02D3FF 1 
0FE0D20EFC921003C1 100047EFE2028121730081738052F1F3F1F77231B7AB32 
0EAC936BF18F5" 

590 I-PEEK ( 16561 >+PEEK ( 16562) *256+1 t I«I+< I >32767 ) *65536 i FORK-OTO 
93 x KS-hIDS ( At , K *2+1 , 2 ) x BS-LEFTS ( KS , 1 ) I XS-R IGHTS ( KS , 1 >xh-ASC(BS>- 
48+(BS)"9">*7xL»ASC(XS>-48+(XS>"9")*7«P0KEI+K , M*16+L I PR INTBSXS" 
", x NEXT! P0KE1 6396, 175 x POKE 16397, 201 XG0T08O 
600 A-USR (RND( 127) *256) x RETURN 

610 PRINT 3M, STR INGS < 4 , 32) ,3P , STRINGS (7,32), x RETURN 

620 RESTORE! CL S*PRINT317, "PR ESS I ONE (CLEAR) PARA COHECAR" xM-310« 

G0SUB500 

630 FOR 1-1 T 026 xREADP XPRINT3P, OS • 

640 F0RE-P-61T0NSTEP-64IPRINT3E,".", x A-USR ( 6400 ) « D-E x NEXT 

650 F0RE-1T03! IFPEEK ( 1 4400 ) -2CLS x G0T01 40ELSEREADK « PR INT3D-64*E , C 

HRS(K )CHRS(27)CHRS(8) , 

660 NEXT xG0SUB600xG0SUB600xF0RE-P-61T0HSTEP-64 XPR INT3E , " ", INEXT 
xPRINT3P,STR INGS ( 7 , 32 ) , » NEXT 

670 PR INT3 105 , CHRS ( 136 ) , XF0RP-31T01STEP-1 I PR INT3P+335 , CHRS ( 140) , 
XG0SUB600X NEXT! RETURN 

680 DATA973, 186, 170, 171, 974, 128, 166, 128, 975, 137, 128, 152, 976, 176, 
128,131,988,186,170,171,989,128,166,128,990,137,128,152,991,176, 

128.131.978.186.170.160.979.144.140.134.980.160.140.137.981.181, 
149,144,998,186,170,171,999,144,128,129,996 

690 DATA184, 128, 128, 994, 176, 128, 128, 995, 176, 128, 128, 993, 186, 170, 

171.1000.186.170.171.1001.128.130.144.1002.128.164.128.1003.181, 
149,151,984,176,140,131,985,176,140,131,983,137,137,152,986,134, 
164,164 
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O PROCESSADOR 
DE TEXTO 



A-B-C UM PROGRAMA QUE: 

□ COMPATlVEL COM A LINHA IBM-PC 

□ ESCREVE E IMPRIME EM PORTUGUES 

□ FACIL DE APRENDER 

Q^todas as RESPOSTAS acima 
E MUITAS OUTRAS 



PC SOFTWARE E CONSULTORIA LTDA. 

Almie Bdtrcso. n° 91 gi 1102 R J 
Tvfc 1021) 220 5371 e 262 6553 

CONTATOS ABERTOS PARA REPRESENTANTES 



AGORA £ MAIS FACIL ASSINAR 



_,VMicro 

Slstemas 



Para sua maior comodidade, 
a ATI Ed Kora Ltda. 
coloca k sua disposed 
os seguintes enderecos 
de seus representantes autorizados: 



RIODE JANEIRO 

ATI Editors Ltda. 

Av. Presidente Wilson, 165- Gr. 1210 
CEP 20030 - Tels.: (021 ) 262-5259 



SAO PAULO 

ATI Editors Ltda. 

Rua Oliveira Dias, 153 

CEP 01433 - Tels.: (01 1 ) 853-3800 



PORTO ALEGRE 

Aurora Assessors Empresarial Ltda. 

Rua Uruguai, 35 sala 622 

CEP 90000 - Tel.: (0512) 26-0839 



SALVADOR 
Marcio Augusto N. Viana 
Rua Rodrigo Argolo, 279/203 
CEP 40000 - Tel.: (071) 240-5727 
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Ser esperto e ter um pouco de sorte sao os ingredientes exatos para fazer 
de voce um vitorioso, neste interessante jogo para a Unha Sinclair 




Lance os dados e... 
boa sorte! 

Marco Sergio Furtado Valeriano 



E ste e um jogo relativamente ra- 
pido, com regras bastante sim- 
ples, que exige sorte e uma boa 
dose de esperteza do jogador. 
Foi inventado pelos marinheiros nor- 
mandos e por mais de duzentos anos, o 
Fecha a caixa, que na lingua inglesa 
chama-se Shut the box, tern sido um dos 
favoritos entre os marinheiros de varias 
regides litoraneas. Embora o Shut the 
box seja normalmente disputado por 
duas ou mais pessoas a dinheiro, pode 
servir como jogo de paciencia a uma s6 
pessoa. Nesta adapta^ao para micros, o 
jogo foi programado para ser disputado 
entre duas pessoas. 

0 objetivo 6 que cada jogador cubra 
a maior quantidade possivel de nume- 
ros, de acordo com os lan^amentos dos 
dados. Deve-se dar prioridade a cobertu- 
ra dos numeros de maior valor, pois os 



numeros nSo cobertos serSo compu- 
tados negativamente. 

Os jogadores escolhem em comum 
acordo quern iniciara a partida (no caso 
o jogador 1). Quanto as jogadas, o joga- 
dor lan$a os dois dados quantas vezes 
forem possiveis, para dar continuidade 
ao seu jogo. Apos o lan 9 amento dos da- 
dos, o jogador soma o total obtido e 
decide quais os numeros da tabela que ira 
cobrir, desde que a soma destes numeros 
coincida com a resultante dos dados (na 
tabela estao disponiveis somente os 
numeros de 1 a 9). Por exemplo: no 
caso de ser alcan^ado um total 10 nos 
dados, o jogador podera cobrir uma das 
seguintes combinagoes de numeros: 9 e 
1 , 6 e 4, 7 e 3, 8 e 2. O jogador faz um 
novo lan^amento e repete a opera^ao 
anterior em rela^to aos numeros desco- 
bertos, ]& que todos os outros estao blo- 



queados. Se ele conseguir forrnar uma 
nova combina 9 §o equivalente ao total 
dos dados, cobrira os numeros corres- 
pondentes e continual jogando. Caso o 
jogador tenha coberto os numeros 7, 8 e 
9, ele podera optar por utilizar somente 
um dado para os lan 9 amentos seguintes. 

Quando o total dos dados (ou de um 
dado) nao permitir uma cobertura cor- 
respondente, o jogador perde a vez. So- 
mam-se os numeros que sobraram des- 
cobertos, considerados negativos, e en- 
tao o outro jogador passa a lanyar os 
dados. 0 jogador que atingir primeiro 
ou ultrapassar os 45 pontos negativos 
perde o jogo. 

Marco Sergio Furtado Valeriano tem 21 anos 
e cursa o 49 perfodo de A ndlise de Sistemas 
na UERJ. Fez curso de BASIC no IBAM e no 
Senac e possui um TK-85. 




** ; TAB 21; ‘ 3“ 

140 PRINT TfiB :3; " W ; TAB 21: “I" 
150 PRINT TAB 3; "jMI H T?T8~ = 

160 PRINT PT 13 , 1.; "NOME" ; TAB 1 
"PONTOS (-) “ 

170 FOR K=1 TO 2 

130 PRINT hT 21,0; "DIGITE NOME 
0 JOGADOR *• ;K 
190 INPUT JS (K) 

200 LET P (K) =0 

£10 PRINT AT 13+K, 1; J$ (KJ AT 1 
K . 13; P (K) J AT 3 * K , 2 3 J $ ( K ) 

220 NEXT K 
225 GOSUB 1010 

III LET Ci= i|2|:ll|F|6r|6|9 
242 PRINT AT 4,4,0$ 

245 LET SR =45 
260 LET 51=0 
230 LET M=1 

235 PRINT AT 7,11; " M ; TAB 19;“ 



Feche a Caixa 



90 PRINT TAB 3 
HH ; TAB 23; "J 
100 PRINT TAB 3 
110 PRINT TAB 3 
: “ ; TAB 13; “DADO 
120 PRINT TAB 3 
130 PRINT TAB 3 
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Excepcional desconto a vista 



FIRST ^ 
#1 VIDEO 
w CASSETE 
ENGLISH COURSE 



It I III 0 Banco denegOnos 

Em 5 vezes sem juros 



• Com 2 fitas de 3.30 hs. de duragao, um manual, um 
livro de exerckk) e um de texto voce e toda a sua 
familia aprenderao a falar ingles, a lingua universal. 

• Produzido a cores pela equipe da TV mais 
importante do Brasil. • Gravado em estudio e em 
externas mostrando sempre cenas do nosso cotidiano. 

• Prego de lanqamento a vista com desconto 

Faqa-nos uma visita em qualquer um 
dos nossos endereqos: 
INFORMAQOES: TEL.: 259-1 299 o 

COMPUTER CAMPING I 
BTC VIAGENS E Tl RISMO 



TEMOS DRIVE E 
INTERFACE PI TK 2000 

GRAF IX MX 80 E MX 100 , 

JA VEM COM PLACA 
PI RESOLUQAO GRAFICA 

® BRASILTRADE CENTER 

I Av. Epitacio Pessoa. 280 (Esq. Vic. Piraja) — IPANEMA 
I Assembleia. 10/lj. 112 (Ed. Candido Mendes) — CENTRC 

Av. das Americas. 4790 s/615 (Centro Proflssional Barra Shopping) - 
Rua 16 de Margo. 80 s/lj. 3 — PETROPOLI: 



290 FOR ft = 1 TO 17 STEP 2 
300 I»- C*iA) = 7“ OP. C$(fl)= ,, S” 0 
R C* (Rj ="9 ‘ THEN LET M=2 
310 NEXT H 

320 PRINT AT 7 , 13 ; ( " " RN 

D Msl) ; ( " DAD02 : " AND M=2) 

330 FOR K = 1 TO M 

340 PRINT RT 20 , 0 ; “LRNCE 0 DRDO 

•' ;k;“ , " ;j*d) 

350 PRINT RT 21 , 0; "TECLE <L>RNC 
RR" 

360 INPUT R $ 

370 IF R $ C > “ L “ THEN GOTO 360 
380 LET N = I NT (RND*6) +1 
390 PRINT RT 7,3+(8*K);N 
400 LET SI =5 1 +N 
410 NEXT K 

420 PRINT RT 9, 13; SI 
430 G0SUB 100O 

440 PRINT RT 21.0; "EH POSSIUEL 
SUfi JOGRDR? ( 5 / N ) " 

450 INPUT Y$ 

460 IF Y $ = “N" THEN GOTO 69© 

470 LET SRsSR-Sl 
480 GO SUB 1010 
485 LET 52=0 

490 PRINT RT 2© , 0 ; " OURNTOS NUME 
ROS IRR COBRIP"' 1 ' 

500 INPUT N 
5 1© R R I NT hT 2 0 i 2 9 I N 
520 DIM L (N) 

530 FOR K = 1 TO N 

54© PRINT RT 21 , 0; "DIGITE NUMER 

U “ ; K 

550 INPUT L (K) 

560 LET 52 =52 L (K) 

570 PRINT RT 21 , 15+ (2*K) ; L CK) 

580 NEXT K 
590 GO SUB I©©© 



600 
610 
620 
630 
CS t 
640 
650 
660 
670 
HEN 
680 
690 

6 5 

70© 
710 
72© 
73© 
750 
IDR 
760 
770 
780 
790 
J$ ( 
800 
810 
NOUO 
820 
830 
840 
850 
1000 



IF 51 0 52 THEN GOTO 750 
FOR K. = 1 TO 17 STEP 2 
FOR M = 1 TO N 

IF ST R $ L (M) =0$ (K) THEN LET 



FOR M = 1 TO N 
IF 5TR$ L ( M) =C $ ( 

K) ="i'‘ 

NEXT M 
NEXT K 

PRINT RT 4,4,0* 

if c*= iisans^is 

GOTO 720 
GOTO 260 

LET P 1 1) sP ( I) +SR 
GOSUB 1010 
PRINT RT 13+1.13 



IF P (I) > =45 
LET 1=3-1 
G OT 0 d. 4 0 
PRINT RT 21 
, " J $ i I •) 

PAUSE 120 
GOTO 480 
GOSUB 1010 
PRINT RT 17 
3-1) 

PRINT TAB 6 
PR I NT TAB 6 
? (S/N) *' 

INPUT Hi 
IF H* < > "5“ ' 
CL 5 

RUN 20 
PRINT RT 20 



0; “ JOGRDR INUAL 



6; "PRRRBENS , 

"VOCE UENCEU" 
••OUER JOGRR DE 



THEN GOTO 820 



1010 PRINT RT 21,0;" 
1020 RETURN 







Invasores voltam a ameaqar os terraqueos neste programa desenvolvido 
para micros compativeis com o TRS 80 model o I 



Impeca a fuga 
das naves inimigas 

Silvio Cavalcanti de Araujo 



V oce vai ter uma diftdl missao nesta sua viagem por 
uma desconhecida gallxia. Estard encarregado de 
impedir que 20 naves invasoras escapem para colo- 
car em risco a vida em outros planetas, inclusive a 
Terra. Para isso voce deve ser um perfeito comandante e exf- 
mio atirador. Durante a batalha sua s naves serao alvo de dispa- 
ros do inimigo. E cada vez que voce perder uma nave, um inva- 
sor vai escapar. E quando uma nave inimiga fugir, voce estard 
perdendo tambem um canhfo. A batalha estard perdida quan- 
do tres delas fugirem. 

Em Impend a fuga , na primeira linha do video aparecem al- 
gumas mensagens, como os numeros de tiros, de canhOes, saldo 



de invasores e o e score com recorde atualizado cada vez que 
for igualado ou ultrapassado. 

Para mover sua nave voce deve usar as setas. Esses movi- 
mentos sao lentos, mas poderlo ser acelerados se for utilizada, 
simultaneamente, a tecla CLEAR. Este jogo foi programado 
com rotina de som, permitindo seu funcionamento em equipa- 
mentos compativeis com TRS 80 modelo I. Agora, atire com a 
barra de espa 90 e impega a fuga. 



Silvio Cavalcanti da Araujo 6 programador BASIC e desenvol ve progra- 
mas e jogos para micros das linhas TRS 80. £ autodidata a aprendeu 
BASIC atravts de livros e revistas. 



Impend a fuga 



JO REM 
15 REM 
20 REM 
25 REM 
30 REM 
35 REM 

40 POKE 16561 ,224 :POKE 16542,127 

41 AD- 32739 1 POKE 16527 . AD/256 I POKE 16526 . ADAND255 

42 FOR I "AO 10 AD*2B«REA0 DUPOKE I.DTINEXT I 

43 DATA 205,127.10,62,1,14.0.237.91 ,61 .64,69,47,230,3,179.211.25 
5,13,40,4,16,246,24,242,37.32,241 ,201 

50 RC-OlPT-O 

60 CLEAR 3000 sD-< .047 > I A-SBR < < <2[ 9 ) ♦ < 2« < 2CB ) ) > »64 > 10- < < 219 > /A > IN 
•< < ( A/8 > +0 ) C2) IGOSUB 2400«00SUB 5000 

80 CL S> FOR X« 1 5424 TO 154B7IP0KE X.10IP0KE X-896 . 21 1 NEXT I V55-” 
VOCE CONSEGIU BATER 0 RECORD II I ” I V6*-”DIGITE SEU NOME. (MAX 
I MO 6 LETRAS)” 

90 VI*-” VOCE CONSEGIU IMPEOIR A FUGA DOS INVASORES lll”IV2» 

«« OUER JOGAR OUTRA VEZ ? <S/N)”IV3*-”P ILOTO CHUPIL 

00 I I I"IV4»-”V0CE OEIXOU HUE ESCAPASSEM I" 

100 VI"3i T I -1001 CA- 142sNS«CHR% < 166 )*CHR4<191) *CHR%< 153 > *CMR5< 128 
) IC*-CHR%< 15B > ♦CMR%< 173)1 IC5-CHR* ( 1 73 > ♦CHRK 1 58) I IRt-STR ING* < 6. 1 
76) IGOSUB 1500 
105 PI "504 

107 PC«896IPR INT3PC.C5, 

110 IF P I > < CA*2 )IPI"PI-1IPRINT8PI,N4, 1 ELSE l GOTO 700 

115 IF VI*2lPRINT8l44, N% ; xELSE « IF VI-HPR INT81 44 , N* ,3158 , N* , lELS 



••• IMPECA A FUGA 

••• Autori Silvio C. d* Araujo 

••• OGT-lOO / 16 kB •• 

aaa Recife, Maio de 1984 



F. I IF V I "0 1 PR I NTS 1 44 , Nf , 3158 , Nt ; 31 72 , N6 , 

120 P-PEEK1 14400) 

125 IF RND< 9 ) < 9i GOTO 130JELSE IP J-P I *1 « U-INT < ( 960-P J > 764 ) IK J-P J+6 
4 l FOR X-l TO UiP J"P J*64iP0KE 15360*P J.207 I S-USR < 534 > IS-USR < 518 > l 
NEXT 

127 FOR X-l TO UiPRINT 3K J, " ~ , I K J-K J*64 1 NEXT SPOKE 16320,21 

128 IF KJ-64-PC0RKJ-64-PC*l THEN GOSUB 700 

130 IF P-64 OR P-1921 IF PC< 958IS-USR (540) iPC-PC* 1 1 PR INT3PC , C*, IP 
R INT3PC-2 , " “ | I ELSE l PR INT3PC , " " , I PC-896 l PR INT3PC , C % , 

140 IF P-32 OR P-160HF PC >8961 S-USR < 540 ) IPC*PC- 1 1 PR INT3PC ,C», l P 
RINI3PC*2,~ " , i ELSE IPRINT3PC," ~ , iPC-957 iPR INT3PC , C* , 

150 IF P-128 OR P-1301 TI-TI-1UF T I < 1 l VI -1 iGOTO 7001ELSE IPR INT31 
7 , T 1 , IK -PC -896 s L-128»K IFOR J-PC-64 TO L STEP -64 1 S-USR < 526 ) IPOKE 
1 5360* J , 1 96 l IF J-P I OR J-P 1*1 OR J-P I *2 THEN GOSUB BOO ELSE NEXT 
IFOR J-PC-64 TO L STEP -64 IPR INT3J . " ",INEXT 

160 IF P-66 OR P— 194 1 IF PC< 957 1 S-USR < 540 ) I PC-PC*2 IPR INT3PC ,C», IP 
RINI8PC-2," “jlELSE SPRINT 3PC," “ , IPC-896IPR INT3PC , C* , 

170 IF P-34 OR P-1621 IF PC >897 1 S-USR ( 540 ) sPC-PC-2 1 PR INI 3PC . C* , I P 
R INI 3PC*2, " ", l ELSE IPRINT3PC," " , IPC-957 1 PR INT3PC ,C» , 

500 GOTO 110 

700 FOR )f-l TO 25 INF - 129»RND< 62 )IPR1NT3PC, ICS; 8PC- 1 , CMR4 < NF ) , I S- 
USR(S20»RN0(2S> ) IPR IN I3PC . CHR%< NF ) ,3PC ,C% j t S-USR <52U*RND<25> ) sNE 
XT I PR INI 3PC , ” ”, 

710 PRINT3PI,” ”, 

720 VI -VI - 1 ICA-CA- 1 41 GOSUB 1500IP I -P 1-64 1 IF PKCA AND VI >0 IGOTO 
105 

730 IF VDOiGOTO 1 05 1 ELSE s PR I NT 31 44 , Ni ,3158 , N4 , 3172 , N % , I GOSUB 20 



30 
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50,0010 20HU 

7 VO FOB T-l TO 2S:NE XT iRETURN 

HOO FOR J-PC-64 TO PI*1 STEP-64 JPR I NT8J , " ", «NEXT,PT»PT*45,NA=NA 
• 1 « IF NA-10SPHINT3PI," ", 

BIO FOR K-PI TO PC-64 STEP 64 , PR INT3K , N», s S-USR (518) « S-USR < 524 > , 
PR INT3K , " " , , S-USR < 528 > s S-USR < 534 > , NEXT 

820 IF NA-20sVl-0,G0SUB lSOOlOOSlif 7050,*0SUB 25Q0:F0R X-l TO LE 
N(V1*),PRI N T351 2, LEFT* ( VI * , X ) : GOSUB 2060!NEXT«G0T0 2000 
Jf,00 IF VI -3,DC*-"C C t " ,ELSE , IF VI-2«DC*-" Cl"«ELSE«IF VI-1»DC*-" 
C",ELSE l IF V I -0 I DC*-"GAME OVER" 

1510 F««?0-NA,PRINT30.DC*,310." TIROSl “ , T I ,321 . " RECORD", 32V, RC 
• 334 , RN* ,343, " PTb I " ,PT , 354 , "FALTAM" ,360 . F«; 

1520 RETURN 

2000 GOSUB 2500 > FOR X-l TO LEN( V2* > ,PR INT3576 , R IGHT*( V2* , X > »FOR 

T-l TO 50, NEXT, NEXT 

2010 R*-INKEY*«IF R*-"~THEN 2010 

2020 IF R*»"N" OR R*-"n~«FOR X-L TO PC STEP 64, PR INT3X, IC*» IGOSU 
B 2060, PR INT3X , " ",, GOSUB 2060, NEXT s PR INT3PC , C*, «PR INT31V2. , »EN 

D 

2030 IF RS*"S" OR R*-"*",FOR X-L TO PC. STEP 64, PRINT3X, C», , GOSUB 
2060 , PR INT3X , " ",, NEXT, PRINT 3PC.C*, , GOSUB 2060, FOR Y-PC TO 896 

STEP -1JPRINT3Y.C*," ",, GOSUB 2060«NEXT,F0R X-l TO 6 , GOSUB 2060 
•NEXT, GOTO BO 
2040 GOTO 2010 

2050 X -PC-896 ,L-12B»K ,FOR X-PC TO L STEP -64 ,PR INT3X ,C* , IGOSUB 2 
060IPRINT3X," ", , NEXT, PR INT3L.C*,, RETURN 
2060 FOR T-l TO 30, NEXT T, RETURN 
2070 GOSUB 2050 

20B0 GOSUB 2500, FOR X-l TO LEN< V3S > ,PR I NT 3531 . LEF T* < V3*. X > , « GOSU 
B 2060SNEXTJF0R X-l TO LEN< V4* ) «PR INT3462 , R IGMT*< V4* , X ) , , GOSUB 2 
060, NEXT, GOTO 2000 
2400 POKE N, 23, RETURN 

2500 IF PT-O, RETURN, ELSE, IF PT 1-RClRC-PT «PR INT3457 . V5%, ,PR INT352 
6 . V 6 *, , ELSE, RETURN 

2510 PR INT3576, STRING*! 63," " ) , « PR INT3594 . IR* , «PR INT3576 , , , INPUT 
" 8 UAL 0 SEU NOME ",RI* 

2520 IF LEN(R 1*1 >6 THEN GOTO 2S10>ELSE,IF R I *< >"~IRN*-"< "*R It*" ) 
",RI*-""«ELSE RN*-~ "«RI»— "" 

2530 PR1NT344B.STRING*< 128, 12B), , PR INT3576, STRING* (128,1281 
2540 PRINT334," " ,329 ,RC ,334 , RN*, , PT-O, NA-0 

2550 RETURN 

4000 CLSJPR INTCHR*< 23 > " IMPECA A FUGA 

4010 PRINT, PRINT" 0 objettvo desse J 090 e' ten-" 

4020 PRINT "t ar inprdir a fuga de 20 inv»-" 

4030 PRINT"sores que saea do lado direito" 

4040 PR INT"do video. Para tsso, vocr devr“ 

4060 PRINT"airar o canhao r atirar coa a" 

4070 PR INT"barra dr espaco. para aover-se," 

4080 PR INT"use as setae, cada vez que voce" 

4090 PRINT“for atingido, o invaaor afasta-" 

4100 PR INT"se de voce, se 3 tnvasores ch«-" 



4110 PR INT"garea no alto do video, araba o" 

4120 PRINT"jogo. Sr voce at inge ua invasor" 

4130 PR INT”out r o apareccra ' no »s* o lugar" 

4140 GOSUB 6000 

4150 CLSiPR INTCHR* ( 23 > " IMPECA A FUGA 

4160 PRINTsPR INT"aas se ele atmge voce, ale- de" 

4170 PRINT"voce perder ua canhao, uai ata-" 

4180 PRINT"cante Foge. Para ganhar o Jogo' 

4190 PR I NT"voc e dev* abater todos os ini-” 

4200 PR INT"ai 1 gos , sea que acabra os tiros," 

4210 PR INT"e sea perder todas as naves." 

4220 PR INT"Para se aover use," 

4230 PR INTCHR *( 34 1 ,CHR*< 93 1 , CHR*< 341," Para a esquerda," 

4240 PR INTCHR*( 34 > , CMR* < 94 ) , CHR*( 34 1 , " para a direita, e" 

4250 PRINT CHR*< 34 ) , "ESPACO" ,CHR*( 34 > , " para atirar." 

4260 PR INT"0bs , Para aover aa i s depress*, use, (CLEAR > « <SETA> 

4270 PRINT 
4280 GOSUB 6000 

4290 CLS,PR I NTCHR*< 23 1 , «BS*«" Bo* Sorte... ",F0R X-l TO 

LEN( BS* > , S-USR < 528 > «PR I NT3896 , R IGHT*< BS* , X ) , , S-USR < 790 > , GOSUB 20 
60, NEXT 

4300 FOR X-l TO 8, PR INTSTR I NG* ( 60 , 32 > I S-USR < 530* (2*X ) > « GOSUB 790 
• NEXT 

4310 RETURN 

5000 CLSIPR I NTCHR*( 23 >«Al*-"a«- IMPECA A FUGA ■ -a" , A2*-STR 1 NG*< 2 
2,131) I A3*— "S.C . A. APRESENTA, " ,A4*- "SHIFT" , A5*-"CLE AR" , A6*— 

" " , A74-STR ING* ( 22 , 61 1 

5010 AB*»"Tecle (SHITT r .n mstrucoes." 

5020 A9»-" ou (CLEAR) par* joqar... 

5040 FOR X-l TO. LEN( Al* ) ,M*«MI0*< Al* , X , 1 ) , IF M* = " " sB-B *2 , NEXT 
5050 FOR Y-6 TO 326 STEP 64 , S-USR < 546»RN0 ( 40 ) > ,PR INT3Y*B , M* , «G0S 
UB 51 50, PR I NTS Y »B , " " , *NEX T ,PR INT3Y*B , M* , >8 -B «2«NEXT 
5060 FOR XX-1 TO l EN < A2* > , PR I NT 3456 , R IGHT * ( A2* , XX > , , S-IISR (546*RN 
0(40) >, NEXT 

5080 FOR X-l TO LEN( A3* ) «PR INT38 , R IGHT*( A3* , X > , S-USR ( 540*RNl) ( 40 ) 
>,NEXT 

5090 FOR Z-114 TO 72 STEP -1 sPR INT37 ,LEF T*( A7* , 1 ) , , S-USR ( 540+RN0 
( 40 > > , NEXT 

5100 FOR X-l TO LEN( AB* > «PR I NT 3704 . L EF T*( A8* , X ) ,3768 , l EF T*( A9* , X 
>, ,S-USR(540»RND(40) ),NEXT 

5110 AB PEEK (14400 ),A-PEEK( 14464) , PR INT3718.A4*, 3782, A6*, ,FOR X- 

560 TO 580, S-USR (X)SNEXT,PRINT371B, A6* • 3782 , A5», 8 FOR X-580 TO 56 

0 STEP - 1 , S-USR (X),NEXT«IF AB-6 THEN END 

5120 IF AB-2 ,PR INT3718 , A4» - 3782 , A5* , s GOSUB 4290, RETURN 

5130 IF A»1 ,PRINT3718,A4*. 3782, A5*, IGOSUB 4000, RETURN 

5140 GOTO 5110 

5150 FOR T-l TO 7 , NEXT s RETURN 

6000 PRINT3960, "para cont inuar , tecle (RETURN)", 

6010 AB-PEEK ( 1 4400 ) • IF AB-1 ,RE TURN ,EL SE ,GOTO 6010 




ASSISTENCIA TECNICA E 
VENDAS DE MICROCOMPUTADORES 




ATARI 
EPSON 
GRAFIX 



10 FOR I = 1TO20 
20 PRINT “ESTOU EM APUROS” 
30 NEXT I 
40 GO TO 10 




Odismoc 
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5" PHILIPS 

SUPE^BRAIN 



^DAl^OAD 

EQUIPAMENTOS ELETRICOS LTDA. 
RUA LUIZ GOES, 1894 
FONES: 276-8988 e 577-8761 
TELEX: (Oil) 37.755 DTRD — SP 





Voce e o piloto de uma nave que vai encontrar muitos obstacu/os 
neste jogo para os micros da /inha Sinclair 



Defenda-se 



Tadeu Curinga da Silva 



V oce 6 o piloto de uma nave, 
cuja missao i encontrar um 
tesouro escondido, ap6s 
percorrer um longo percurso 
passando por montanhas, cave mas, tu- 
neis e edifi'dos. A nave aparecer£ no can- 
to esquerdo do video e para move-la voce 
podera dispor do joystick ou do teclado, 
escolhendo, respectivamente, as op^oes 
J ou T, dadas no inf do do jogo. Se a sua 
opfao for o teclado, os coman dos slo: 
tecla 1 para a nave subir; e 0, para des- 
cer. 

A quilometragem percorrida 6 mos- 
trada no canto inferior esquerdo do vi- 
deo e vai aumentando a medida que vo- 
ce vai avansando. Se houver uma coli- 
sao, a nave explodir£, provocando uma 
diminuifSo no numero de chances, que 
s2o cinco. Apos a colisao, o jogo 6 rei- 
niciado em um ponto um pouco mais 
atris do local da explosao. Ao terminar, 
qualquer tecla pressionada produzira 
uma nova partida. 0 jogo apresenta uma 
grande variedade de telas, causando um 
constante suspense sobre qual sera o 
prdximo obstdculo. 

Defenda-se foi desenvolvido em 
Assembler para os micros da linha Sin- 
clair, com uma memdria minima de 16 
Kb de RAM. Para digitar o programa, 
comece pela listagem 1 . As linhas REM 
sSo necessirias porque 6 nelas que fica- 
rio os bytes da linguagem de miquina. 
Elas deverSo conter exatamente o nume- 
ro de caracteres indicados. 

Para digitar estas linhas, proceda da 



seguinte forma (ou entao use o coman - 
do E do MICRO BUG-MS n9 33, pag. 
54): coloque o micro no modo FAST 
(digitando FAST e ENTER ou NEWLI- 
NE) para ganhar tempo; digite uma li- 
nha 2 REM com 206 caracteres quais- 



quer; edite esta linha 2, modifique o seu 
numero para 6, avance o cursor e acres- 
cente mais 148 caracteres a esta nova 
linha, para que assim ela contenha 354 
caracteres. A seguir, edite a linha 6, mo- 
difique o seu numero para 1 , avance o 



Listagem 1 



1 REM ....(468 caracteres) . . . . <K+l)-476 

2 REM ....(206 caract er es ) . . . . 7190 LET A=A+C 

3 REM ....(482 car ac t er es ) . . . . 7200 POKE N+B,C 

4 REM ....(480 caract eres ) . . . . 7210 LET 0=8+1 

5 REM ....(495 car act eres ) . . . . 7220 NEXT K 

6 REM ....(354 caract eres > . . . . 7230 ip CHEC-A THEN GOTO 7280 



7000 REM MINI MONITOR HEXADECI- 
MAL 

7005 CLS 

7010 PRINT "DIGITAR OU CONFERIR 
(D/CJ ?" 

7020 INPUT AS 

7030 PRINT "ENDERECO INICIAL DO 
BLOCO ?" 

7040 INPUT I 

7050 PRINT "ENDERECO FINAL ?" 
7060 INPUT F 
7065 CLS 

7070 IF AS="C" THEN GOTO 7320 

7080 FOR N=I TO F STEP 8 

7090 LET A=0 

7100 SCROLL 

7110 PRINT N," - ", 

7120 INPUT AS 
7130 PRINT AS," = ", 

7140 INPUT CHEC 
7150 PRINT CHEC 
7160 LET B=0 

7170 FOR K=1 TO LEN AS STEP 2 
7180 LET C-CODE AS(K )*16+C0DE AS 



7240 SCROLL 

7250 PRINT "ERRO, POR FAVOR DIGI 
TE NOVAMENTE" 

7260 LET I=N 
7270 GOTO 7080 
7280 NEXT N 
7290 SCROLL 

7300 PRINT "BLOCO DIGITADO" 

7310 STOP 

7320 REM CONFERE 

7330 FOR N=I TO F STEP 8 

7340 SCROLL 

7345 LET C=0 

7350 PRINT N," - ", 

7360 FOR A=0 TO 7 

7365 IF N+A >F THEN GOTO 7410 

7370 LET B=PEEK (N+A) 

7380 PRINT CHRS (INT (B/16>+28>, 
CHRS (B-INT ( B/16 ) «16+28 ) , 

7390 LET C-C+B 
7400 NEXT A 
7410 PRINT " - ",C 
7420 NEXT N 
7430 STOP 
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cursor e acrescente mais 1 14 caracteres 
a esta nova linha, que conterd entao 468 
caracteres. Edite depois a linha 1, modi- 
fique-a para 4 e coloque mais 12 carac- 
teres. Fa 9 a a edisSo da linha 4, mude-a 
para linha 3 e adicione mais 2 caracte- 
res. Por ultimo, repita esta opera^o 
com a linha 3, transforme-a em linha 5 e 
acrescente mais 13 caracteres. 

Ap 6 s ter feito isso, digjte o comando 
direto: PRINT PEEK 16396+256* PEEK 
16397. 0 resultado deverd ser 19030. 
Caso contrdrio, terd havido erro na digi- 
tal das linhas. Se tudo estiver correto, 
coloque o micro no modo SLOW e digi- 
te normalmente a listagem 1 , a partir da 
linha 7000. 

De RUN e na tela surgird a pergunta: 
DIGITAR OU CONFER1R (D/C)?. Vo- 
ce deverd entrar com a letra D (digitar). 
Se voce tiver duvidas referentes a um 
bloco, 6 bom conferir. A seguir. o pro- 
grama fard uma nova pergunta: ENDE- 
REgO DMICIAL DO BLOCO? £ s 6 en- 
trar com o primeiro endere 90 do bloco a 
ser digitado (veja a Figura 1). Finalmen- 
te, o micro pedira o endere 9 o final para 
depois seguir com a entrada dos bytes 
em Assembler. Eles deverdo ser digita- 
dos sempre de oito em oito, num total 
de 16 caracteres (dois para cada byte), 
exceto na ultima linha de cada bloco, 
onde o numero de bytes poderd ser 
menor que oito. Nos blocos em Assem- 
bler da listagem 2 , aparecem espa 90 S 
entre cada byte apenas para visualizd-los 
melhor. Nao digite esses espa 90 s. 

Apds a entrada dos bytes referentes 
ao endere 90 correspondente, o micro 
pedird mais um numero: o checador. 
Este numero, como o prdprio nome diz, 
checa se todos os bytes foram digitados 
corretamente. Em caso positivo, o pro- 
grama continuard a rodar normalmente; 
mas se houver erro,o programa acusard, 
pedindo que voce digite novamente os 
bytes do endere 90 onde houve erro. 

Para ficar mais claro, vamos dar um 
exemplo. Suponhamos que voce tenha 
digitado toda a listagem 1 e queira en- 



BLOCO 


-END. INICI AL 


-END. FINAL 


i 


16514 


16981 


2 


16988 


17193 


3 


17200 


17681 


4 


17688 


18167 


5 


18174 


18668 


6 


18675 


19028 



Figura 1: tabela de enderefos 



trar com os bytes do primeiro bloco. 
Ap 6 s dar RUN, a tela imprimird DIGI- 
TAR OU CONFERIR (D/C)? Entre com 
D. Aparecera entao: ENDEREgO INI- 
CIAL DO BLOCO? Entre com o nume- 
ro 16514. E a seguir perguntard: EN- 
DEREgO FINAL? Entre com o numero 
16981. A tela imprimird: 16514 — e fi- 
card esperando a entrada dos bytes. Di- 
gite 002A0C4001C50009. A tela entao 
ficard assim: 16514 — 002A0C4001C5 
0009= esperando a entrada do checador. 
Digite 325 e a tela mostrard: 

16514 - 002A0C4001C50009= 325. Se 
tudo estiver correto, o programa dard o 
SCROLL, imprimird o prdximo endere- 
90 e continuard sua execu 9 ao. Caso 
ocorra algum erro na digitado dos by- 
tes, o programa acusard. £ aconselhdvel 
fazer grava<;5es do programa a cada dois 
blocos digitados para continuasao futu- 
ra, pois digitar tudo de uma s 6 vez serd 
cansativo. Apos a entrada de todos os 
blocos em Assembler da listagem 2, digi- 
te as seguintes linhas: 

10 SAVE "DEFENDA-SE" 
20 RAND USR 18723 

Depois, de o comando RUN 10, salve 
o programa definitivamente e divirta-se, 
ou melhor, defenda-sel 



Tadeu Curinga da Silva tem 15 anos a cursa o 
nival 4 de EletrotAcnica na Escola TAcnica 
Federal do Rio Grande do Norte. £ usuArio de 
um TK82-C hA um ano. 



Listagem 2 



16314 


- 


00 


2A 


OC 


40 


01 


cs 


00 


09 




325 


16666 


_ 


40 


23 


23 


23 


22 


78 


40 


C9 




591 


16322 


- 


22 


78 


40 


11 


21 


00 


CD 


22 




510 


16674 


- 


CD 


18 


41 


36 


07 


23 


36 


86 




578 


16530 


- 


41 


CD 


3A 


41 


CD 


OC 


41 


CD 




880 


16682 


- 


28 


19 


06 


09 


CD 


6E 


41 


36 




517 


16538 


- 


3A 


41 


72 


28 


72 


2B 


36 


05 




496 


16690 


- 


82 


23 


36 


06 


CD 


OC 


41 


C9 




708 


16346 


- 


CO 


OC 


41 


CD 


3A 


41 


CD 


18 




839 


16698 


- 


CD 


18 


41 


CD 


33 


41 


36 


07 




708 


16534 


- 


41 


CD 


6C 


41 


36 


82 


23 


CD 




867 


16706 


- 


23 


36 


03 


28 


19 


CD 


5E 


41 




524 


16562 


- 


02 


41 


36 


05 


23 


36 


86 


00 




349 


16714 


- 


36 


82 


23 


36 


83 


23 


36 


04 




497 


16570 


- 


CO 


02 


41 


06 


05 


CO 


71 


41 




666 


16722 


- 


C9 


36 


07 


23 


36 


03 


23 


36 




443 


16578 


- 


CD 


22 


41 


CD 


18 


41 


CD 


7A 




925 


16730 


- 


01 


28 


28 


19 


CD 


OC 


41 


06 




400 


16586 


- 


41 


06 


04 


CO 


71 


41 


CD 


7A 




785 


16738 


- 


04 


36 


05 


19 


CD 


OC 


41 


10 




386 


16594 


- 


41 


06 


05 


CD 


71 


41 


CD 


18 




688 


16746 


- 


F8 


C9 


06 


04 


CD 


OC 


41 


36 




795 


16602 


- 


41 


CD 


18 


41 


CD 


33 


41 


36 




766 


16754 


- 


05 


23 


CD 


02 


41 


10 


F8 


C9 




777 


16610 


- 


03 


23 


36 


03 


23 


36 


05 


19 




214 


16762 


- 


36 


07 


23 


36 


03 


CD 


02 


41 




425 


16618 


- 


CD 


SE 


41 


36 


05 


2B 


36 


83 




651 


16770 


- 


C9 


3E 


16 


32 


82 


40 


2A 


OC 




583 


16626 


- 


2B 


36 


83 


00 


CD 


OC 


41 


CD 




715 


16778 


- 


40 


OE 


43 


09 


36 


82 


23 


36 




427 


16634 


- 


3A 


41 


CD 


OC 


41 


C3 


83 


41 




796 


16706 


- 


8A 


23 


36 


83 


OE 


35 


09 


22 




468 


16642 


- 


23 


36 


05 


28 


2B 


19 


CD 


OC 




422 


16794 


- 


7B 


40 


CO 


OC 


41 


2A 


OC 


40 




587 


16650 


- 


41 


C9 


E5 


21 


00 


00 


3E 


OF 




605 


16802 


- 


OE 


61 


09 


•OE 


IF 


C5 


ES 


01 




800 


16658 


- 


BC 


23 


20 


FC 


El 


C9 


2A 


78 




1098 


16810 


- 


13 


ED 


B8 


23 


70 


Cl 


3A 


82 




968 
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DEFENDA-SE 



16818 


- 


40 


30 


32 


82 


40 


20 


E3 


2A 




670 


16826 


- 


7B 


40 


77 


23 


77 


OE 


21 


09 




516 


16834 


- 


36 


03 


2B 


36 


02 


22 


7B 


40 




377 


16842 


- 


23 


23 


23 


7E 


FE 


03 


28 


07 




535 


16850 


- 


3E 


01 


32 


82 


40 


18 


C3 


2A 




568 


16858 


- 


OC 


40 


OE 


62 


09 


70 


2B 


70 




464 


16866 




28 


70 


CO 


OC 


41 


C3 


5E 


42 




792 


16874 


- 


83 


BA 


81 


85 


B5 


87 


84 


AC 




1247 


16882 


- 


87 


A6 


82 


A6 


A9 


84 


80 


85 




1351 


16890 


- 


B4 


87 


00 


00 


97 


97 


97 


80 




944 


16898 


- 


B9 


A6 


A9 


AA 


BA 


80 


A8 


BA 




1358 


16906 




B7 


AE 


B3 


AC 


A6 


80 


A9 


A6 




1337 


16914 


- 


80 


B8 


AE 


B 1 


BB 


A6 


80 


97 




1295 


16922 


- 


97 


97 


C9 


00 


05 


97 


97 


97 




961 


16930 


- 


80 


B2 


AE 


A8 


B7 


B 4 


80 


B8 




1323 


16938 


- 


AE 


88 


89 


AA 


B2 


A6 


B8 


80 




1369 


16946 


- 


97 


97 


97 


85 


BO 


B2 


B8 


80 




1252 


16954 


- 


9C 


9C 


9C 


9C 


80 


83 


A6 


BB 




1284 


16962 


- 


AA 


B8 


80 


A1 


80 


80 


97 


80 




1178 


16970 


- 


A9 


AA 


AB 


AA 


B3 


A9 


A6 


96 




1344 


16978 


- 


B8 


AA 


80 


97 


- 633 











16988 


- 


1C 


42 


21 


EA 


41 


22 


SC 


42 




618 


16996 


- 


2A 


OC 


40 


01 


93 


02 


09 


22 




311 


17004 


- 


7B 


40 


2A 


7 B 


40 


01 


21 


00 




450 


17012 


- 


36 


03 


09 


09 


36 


83 


A7 


ED 




664 


17020 


- 


42 


ED 


48 


SC 


42 


OA 


FE 


C9 




1001 


17028 


- 


28 


16 


77 


CD 


OC 


41 


01 


BF 




655 


17036 


- 


FF 


09 


3E 


03 


CD 


FA 


42 


2A 




892 


17044 


- 


5C 


4? 


23 


22 


5C 


42 


18 


D2 




619 


17052 


- 


CD 


OC 


43 


2A 


OC 


40 


01 


26 




441 


17060 


- 


00 


09 


36 


07 


CD 


BD 


42 


23 




565 


17068 


- 


36 


84 


OE 


2B 


09 


36 


82 


3E 




498 


17076 


- 


83 


CO 


BF 


42 


23 


36 


81 


IB 




835 


17084 


- 


09 


3E 


03 


06 


16 


23 


77 


10 




272 


17092 


- 


FC 


C9 


01 


04 


02 


CD 


F5 


08 




918 


17100 


- 


11 


IE 


42 


01 


18 


00 


CD 


6B 




450 


17108 


- 


OB 


CD 


OC 


43 


2A 


OC 


40 


01 




414 


17116 


- 


06 


02 


09 


06 


20 


23 


36 


8A 




490 


17124 


- 


10 


FB 


01 


00 


17 


CD 


F5 


08 




749 


17132 


- 


11 


36 


42 


01 


20 


00 


CD 


6B 




482 


17140 


- 


OB 


CO 


OC 


43 


18 


1C 


01 


IF 




379 


17148 


- 


00 


23 


E5 


Di 


23 


C5 


ED 


80 




1118 


17156 


- 


2B 


70 


Cl 


23 


3D 


20 


F2 


C9 




919 


17164 


- 


21 


00 


00 


3E 


B 4 


BC 


23 


20 




530 


17172 


- 


FC 


C9 


06 


20 


C5 


2A 


OC 


40 




806 


17180 


- 


3E 


16 


CD 


FA 


42 


CD 


OC 


41 




887 


17188 


- 


Cl 


10 


FI 


C3 


OE 


47 


- 730 







17576 


_ 


05 


05 


05 


03 


01 


04 


05 


08 




36 


17584 


_ 


09 


06 


06 


04 


03 


01 


02 


02 




33 


17592 


- 


03 


07 


08 


OB 


OE 


OF 


OC 


OB 




81 


17600 


- 


OA 


09 


06 


05 


04 


06 


05 


03 




48 


17608 


_ 


02 


02 


05 


06 


07 


05 


03 


02 




32 


17616 




03 


02 


02 


03 


04 


06 


07 


OA 




37 


17624 


- 


05 


04 


03 


02 


01 


02 


01 


02 




20 


17632 


- 


02 


01 


01 


01 


02 


03 


05 


08 




23 


17640 


- 


OA 


OB 


OC 


OD 


OE 


11 


12 


02 




97 


17648 


- 


01 


02 


03 


04 


05 


06 


07 


06 




34 


17656 


- 


05 


05 


06 


07 


07 


07 


07 


07 




51 


17664 


- 


07 


07 


07 


02 


01 


02 


03 


02 




31 


17672 


- 


01 


CB 


02 


03 


02 


01 


02 


03 




214 


17680 


- 


02 


C9 


- 203 















17688 


- 


10 


OE 


OC 


OA 


08 


07 


05 


03 




75 


17696 


- 


03 


08 


09 


09 


06 


05 


04 


04 




4B 


17704 


- 


02 


07 


08 


06 


04 


02 


02 


04 




35 


17712 


- 


07 


06 


03 


OA 


OB 


10 


11 


11 




87 


17720 


- 


04 


02 


01 


OC 


OD 


OD 


OE 


10 




75 


17728 


- 


OA 


06 


03 


04 


04 


02 


01 


12 




48 


17736 


- 


11 


OE 


OE 


OF 


OF 


OB 


09 


05 




100 


17744 


- 


06 


06 


09 


03 


03 


03 


01 


OB 




42 


17752 


- 


06 


08 


04 


02 


02 


08 


OD 


11 




60 


17760 


- 


10 


OD 


10 


10 


OD 


10 


OF 


05 




110 


17768 


- 


01 


01 


10 


12 


02 


03 


03 


03 




47 


17776 


- 


03 


03 


03 


03 


03 


03 


03 


03 




24 


17784 


- 


04 


09 


OC 


OB 


11 


12 


02 


12 




91 


17792 


- 


12 


12 


12 


12 


12 


12 


12 


12 




144 


17800 


- 


02 


12 


11 


OE 


OB 


08 


07 


06 




83 


17808 


- 


05 


04 


02 


01 


01 


01 


11 


12 




49 


17816 


- 


11 


12 


11 


OF 


OB 


OA 


08 


06 




102 


17824 


- 


04 


02 


04 


04 


02 


04 


04 


02 




26 


17832 


- 


04 


04 


02 


04 


04 


01 


03 


05 




27 


17840 


- 


05 


05 


05 


05 


05 


04 


02 


04 




35 


17848 


- 


04 


02 


04 


04 


02 


04 


04 


01 




25 


17856 


- 


OF 


11 


12 


03 


10 


02 


OF 


01 




87 


17864 


- 


OE 


OC 


OA 


04 


OB 


05 


03 


03 




62 


17872 


- 


03 


03 


11 


02 


01 


03 


01 


05 




35 


17880 


- 


01 


07 


02 


04 


06 


02 


02 


02 




26 


17888 


- 


12 


OC 


12 


OB 


12 


OC 


12 


OB 




118 


17896 


- 


12 


m 

o 


08 


OD 


07 


07 


02 


OC 




75 


17904 


- 


OF 


OB 


07 


03 


03 


05 


07 


05 




56 


17912 


- 


01 


05 


07 


05 


01 


03 


05 


07 




34 


17920 


- 


09 


OB 


OD 


03 


OF 


10 


12 


12 




103 


17928 


- 


OA 


02 


02 


04 


05 


03 


01 


03 




30 


17936 


- 


05 


04 


02 


03 


05 


03 


02 


05 




29 


17944 


- 


01 


03 


02 


02 


02 


01 


03 


04 




18 


17952 


- 


03 


01 


OE 


03 


02 


06 


03 


02 




34 



18326 


- 


CD 


OC 


41 


2A 


00 


47 


72 


23 




544 


18334 


- 


72 


23 


72 


2B 


2B 


3A 


OD 


47 




491 


18342 


- 


BA 


20 


11 


3A 


25 


40 


FE 


F7 




895 


18350 


- 


20 


03 


A7 


ED 


52 


FE 


EF 


20 




1046 


18358 


- 


01 


19 


18 


OF 


3A 


26 


40 


FE 




479 


18366 


- 


EF 


20 


03 


A7 


ED 


52 


FE 


DF 




1237 


18374 


- 


20 


01 


19 


22 


00 


47 


2A 


OC 




217 


18382 


- 


40 


3E 


16 


CD 


FA 


42 


2A 


00 




711 


18390 


- 


47 


06 


03 


7E 


FE 


00 


20 


37 




547 


18398 


_ 


23 


10 


F8 


2B 


36 


83 


2B 


36 




624 


18406 




BA 


2B 


36 


82 


3A 


02 


47 


3D 




557 


18414 


- 


32 


02 


47 


C2 


63 


47 


3E 


02 




551 


18422 


- 


32 


02 


47 


2A 


07 


47 


23 


22 




312 


18430 


- 


07 


47 


2A 


05 


47 


23 


7E 


FE 




611 


18438 


- 


C8 


CA 


34 


49 


FE 


C9 


CA 


BC 




1324 


18446 


- 


49 


22 


05 


47 


C3 


63 


47 


CD 




753 


18454 


- 


88 


48 


CD 


OC 


41 


CD 


OC 


41 




772 


18462 


- 


06 


32 


C5 


72 


2B 


72 


2B 


72 




681 


18470 


- 


A7 


ED 


52 


72 


23 


23 


72 


A7 




951 


18478 


- 


ED 


52 


72 


2B 


72 


2B 


72 


42 




813 


18486 


- 


10 


FE 


CD 


88 


48 


42 


10 


FE 




1019 


18494 


- 


Cl 


10 


DF 


CD 


OC 


41 


CD 


OC 




931 


18502 


- 


41 


2A 


09 


47 


7E 


3D 


77 


FE 




747 


18510 


- 


9C 


CA 


2A 


4A 


06 


IE 


2A 


05 




557 


18518 


- 


47 


2B 


7E 


FE 


EA 


28 


OD 


00 




781 


1B526 


- 


22 


05 


47 


2A 


07 


47 


2B 


22 




307 


18534 


- 


07 


47 


10 


EA 


2A 


OC 


40 


01 




447 


18542 


- 


76 


02 


09 


22 


00 


47 


01 


60 




331 


18550 


- 


00 


09 


06 


20 


23 


36 


BA 


10 




290 


18558 


- 


FB 


CD 


09 


49 


CO 


OC 


41 


C3 




1015 


18566 


- 


63 


47 


2A 


00 


47 


11 


21 


00 




333 


18574 


- 


06 


80 


70 


23 


72 


23 


70 


A7 




709 


18582 


- 


ED 


52 


36 


04 


2B 


70 


2B 


36 




629 


18590 


- 


87 


19 


19 


36 


02 


23 


70 


23 




423 


18598 


- 


36 


01 


C9 


34 


35 


28 


34 


2A 




495 


18606 


- 


38 


OE 


00 


10 


2F 


11 


34 


3E 




264 


18614 


- 


38 


39 


2E 


28 


30 


00 


34 


3A 




357 


18622 


- 


00 


10 


39 


11 


2A 


28 


31 


26 




259 


18630 


- 


29 


34 


OF 


2B 


2E 


32 


00 


29 




288 


18638 


- 


2A 


00 


2F 


34 


2C 


34 


C9 


35 




491 


18646 


- 


26 


37 


26 


27 


2A 


33 


38 


C9 




520 


18654 


- 


27 


34 


33 


3A 


38 


00 


ID 


1C 




313 


18662 


- 


1C 


1C 


00 


30 


32 


38 


C9 


- 411 



18675 


- 2A 


OC 


40 


23 


06 


16 


OE 


21 




228 


18683 


- 7E 


FE 


76 


28 


02 


36 


00 


23 




629 


18691 


- OD 


20 


F5 


10 


FI 


C9 


CD 


F3 




1196 


18699 


- 48 


28 


CD 


19 


49 


01 


AD 


FD 




845 


18707 


- 09 


00 


CD 


19 


49 


C9 


3A 


OC 




583 



























17960 


- 


02 


02 


04 


11 


OE 


10 


OF 


OD 




83 


18715 




47 


06 


20 


28 


77 


10 


FC 


C9 




740 


























17968 


- 


OC 


OA 


07 


07 


06 


01 


09 


03 




55 


18723 


- 


97 


32 


22 


40 


3E 


03 


32 


OB 




425 


























17976 


- 


09 


01 


09 


03 


01 


02 


03 


03 




31 


18731 


- 


47 


3E 


AD 


32 


OC 


47 


C3 


83 




765 


17200 


_ 


02 


02 


02 


02 


02 


01 


01 


01 




13 


17984 


- 


03 


03 


03 


03 


03 


03 


03 


03 




24 


18739 


- 


40 


23 


22 


05 


47 


2A 


OC 


40 




327 


17208 


- 


01 


01 


01 


02 


06 


08 


OA 


OB 




40 


17992 


- 


03 


03 


03 


03 


03 


03 


03 


03 




24 


18747 


- 


01 


67 


01 


09 


36 


87 


23 


36 




392 


17216 


- 


OB 


OB 


OB 


00 


OE 


OF 


10 


OE 




105 


18000 


- 


03 


03 


03 


01 


03 


03 


03 


03 




22 


18755 




07 


23 


36 


84 


23 


36 


04 


01 




322 


17224 


• 


OB 


OB 


OB 


03 


02 


01 


01 


02 




42 


18008 


- 


02 


02 


OC 


OC 


OC 


OC 


OC 


OC 




76 


18763 


- 


21 


00 


09 


36 


84 


2B 


36 


OD 




338 


17232 


- 


01 


01 


01 


01 


01 


03 


03 


03 




14 


18016 


- 


OC 


OC 


12 


12 


12 


12 


01 


OA 




107 


18771 


- 


2B 


36 


OD 


26 


36 


07 


09 


36 




277 


17240 


- 


09 


OB 


OD 


OF 


OF 


11 


12 


01 




99 


18024 


- 


OA 


OA 


OA 


OA 


01 


09 


09 


09 




68 


18779 


- 


05 


23 


36 


OD 


23 


36 


00 


23 




244 


17248 


- 


02 


05 


04 


02 


01 


04 


05 


08 




31 


18032 


- 


09 


09 


09 


09 


01 


02 


02 


02 




43 


18787 


- 


36 


85 


09 


36 


81 


2B 


36 


83 




607 


17256 


- 


06 


05 


01 


07 


07 


07 


08 


07 




48 


18040 


- 


02 


03 


03 


01 


01 


03 


04 


04 




21 


18795 


- 


2B 


36 


83 


2B 


36 


82 


11 


C9 




673 


17264 


- 


05 


09 


09 


OB 


06 


08 


05 


02 




60 


18048 


- 


04 


04 


04 


03 


01 


10 


12 


OE 




64 


18803 


- 


00 


19 


3A 


OC 


47 


77 


09 


77 




413 


17272 


- 


01 


05 


03 


01 


05 


03 


01 


08 




27 


18056 


_ 


08 


02 


02 


02 


02 


02 


01 


02 




21 


18811 


- 


09 


77 


2A 


OC 


40 


01 


4A 


01 




322 


17280 


- 


OA 


OA 


02 


01 


07 


07 


08 


09 




54 


18064 


- 


01 


02 


02 


08 


OB 


09 


OB 


08 




52 


18819 


- 


09 


3E 


OC 


CD 


FA 


42 


C3 


63 




898 


17288 




OA 


OB 


OC 


OD 


OE 


OD 


OC 


11B 




96 


18072 


- 


06 


07 


05 


07 


04 


05 


08 


08 




50 


18827 


- 


47 


CD 


OC 


43 


06 


OB 


C5 


2A 




611 


17296 


- 


09 


07 


05 


03 


01 


01 


01 


01 




28 


18080 


- 


OB 


09 


09 


07 


03 


02 


07 


07 




55 


18835 


- 


00 


47 


01 


1C 


00 


09 


OE 


IF 




154 


17304 


- 


01 


01 


01 


01 


01 


01 


01 


01 




8 


18088 


- 


05 


03 


04 


05 


05 


06 


06 


05 




39 


18843 




C5 


E5 


Dl 


13 


ED 


B8 


23 


70 




1222 


17312 


- 


11 


01 


02 


03 


04 


05 


04 


03 




39 


18096 


- 


04 


06 


03 


04 


02 


04 


05 


04 




32 


18851 


- 


Cl 


CD 


OC 


41 


Cl 


10 


E7 


CD 




1120 


1/320 


- 


02 


01 


01 


01 


01 


01 


01 


01 




9 


18104 


- 


02 


02 


03 


03 


00 


OC 


OC 


09 




56 


18859 


- 


OC 


43 


2A 


OC 


40 


OE 


B2 


09 




398 


17328 


- 


01 


01 


01 


04 


07 


09 


OB 


OD 




47 


18112 


- 


OD 


OC 


OA 


07 


03 


03 


03 


03 




54 


18867 


- 


01 


DS 


48 


OA 


FE 


C9 


28 


08 




799 


17336 


- 


OF 


11 


OF 


OF 


OF 


OF 


OF 


11 




124 


18120 


- 


02 


02 


01 


03 


04 


05 


05 


03 




25 


18875 




77 


23 


03 


CO 


OC 


41 


18 


F3 




706 


1 7344 


• 


OF 


OF 


OF 


OF 


OF 


11 


OF 


OD 




120 


18128 


- 


02 


02 


07 


04 


05 


02 


01 


11 




40 


18883 




ES 


CD 


OC 


43 


El 


03 


11 


37 




813 


17352 


- 


OB 


09 


07 


05 


03 


02 


02 


02 




41 


18136 


- 


12 


10 


OE 


OC 


OA 


08 


06 


06 




90 


18891 


- 


00 


19 


OA 


FE 


C9 


28 


08 


77 




657 


1 7360 


- 


02 


04 


02 


02 


02 


02 


02 


04 




20 


18144 


- 


06 


05 


03 


01 


01 


01 


01 


01 




19 


18899 




23 


03 


CD 


OC 


41 


18 


F3 


2A 




629 


17368 


- 


02 


01 


01 


07 


02 


07 


02 


07 




29 


18152 


- 


01 


01 


01 


11 


12 


11 


OF 


OF 




85 


18907 




03 


47 


2B 


2B 


2B 


7E 


3C 


FE 




643 


17376 


- 


02 


03 


04 


06 


08 


08 


OA 


OB 




52 


18160 


- 


OB 


OF 


OF 


11 


12 


11 


10 


10 




125 


18915 


- 


A6 


20 


02 


3E 


9C 


77 


2A 


09 




588 


17384 


- 


OC 


OD 


01 


OC 


OD 


OC 


OD 


OB 




87 


























18923 


- 


47 


00 


00 


21 


30 


43 


22 


05 




258 


17392 


- 


OD 


OA 


OD 


OE 


09 


OD 


OC 


OC 




96 


























18931 


- 


47 


21 


18 


45 


22 


07 


47 


3A 




367 


17400 


- 


01 


06 


01 


06 


01 


06 


01 


06 




28 


























18939 


- 


OB 


47 


3D 


32 


OB 


47 


FE 


02 




531 


17408 


- 


01 


02 


09 


05 


03 


01 


07 


07 




35 


























18947 


- 


20 


07 


3E 


08 


32 


OC 


47 


18 




266 


17416 


- 


02 


04 


06 


08 


08 


07 


06 


07 




48 


























18955 


— 


15 


FE 


01 


20 


07 


3E 


80 


32 




555 


17424 




09 


07 


06 


08 


OC 


OB 


OA 


09 




72 


18174 


- 


00 


00 


00 


00 


00 


00 


00 


00 




0 


18963 


- 


OC 


47 


18 


OA 


3E 


03 


32 


OB 




243 


17432 




08 


07 


06 


05 


04 


03 


01 


01 




35 


18182 


- 


00 


00 


00 


00 


00 


00 


00 


00 




0 


18971 


- 


47 


3E 


AD 


32 


OC 


47 


CD 


OC 




656 


17440 


_ 


05 


09 


OA 


08 


06 


06 


06 


06 




56 


18190 


- 


01 


00 


01 


CD 


F5 


08 


11 


A9 




646 


18979 


- 


43 


CD 


09 


49 


C3 


63 


47 


2A 




761 


17448 




06 


08 


OA 


OB 


OB 


OD 


OF 


OE 




B8 


18198 


“ 


48 


01 


20 


00 


CO 


6B 


OB 


3A 




486 


18987 


- 


OC 


40 


01 


55 


01 


09 


01 


C9 




374 


17456 




10 


10 


10 


11 


11 


12 


10 


OF 




131 


18206 


- 


25 


40 


FE 


FF 


28 


F9 


FE 


BF 




1344 


18995 


• 


48 


OA 


FE 


C9 


28 


08 


77 


23 




739 


17464 


_ 


OE 


OF 


02 


OD 


OC 


OD 


OD 


OF 




97 


18214 


- 


28 


06 


97 


32 


OD 


47 


18 


05 




360 


19003 


- 


03 


CD 


OC 


41 


18 


F3 


3A 


25 




647 


17472 


- 


OE 


OF 


OE 


02 


01 


01 


01 


02 




50 


18222 


“ 


3E 


FF 


32 


OD 


47 


CD 


09 


49 




738 


19011 


- 


40 


FE 


FF 


28 


F9 


3E 


03 


32 




977 


17480 


_ 


02 


03 


03 


04 


04 


05 


03 


05 




29 


18230 


- 


2A 


OC 


40 


OE 


41 


09 


22 


FE 




494 


19019 


- 


OB 


47 


3E 


AD 


32 


OC 


47 


C3 




645 


17488 


_ 


03 


07 


03 


05 


06 


06 


06 


06 




42 


18238 


- 


46 


01 


35 


02 


09 


22 


00 


47 




240 


19027 


• 


08 


42 


- 282 














17496 




06 


06 


06 


06 


06 


06 


o 

> 


06 




48 


18246 


- 


78 


32 


02 


47 


01 


89 


00 


09 




390 


























17504 




06 


08 


08 


OA 


OA 


OC 


OC 


OE 




80 


18254 


- 


22 


03 


47 


OE 


08 


09 


22 


09 




182 


























17512 


• 


OE 


OC 


OC 


OC 


OC 


OC 


OE 


OE 




102 


18262 


- 


47 


21 


30 


43 


22 


05 


47 


21 




362 


























17520 


_ 


10 


10 


07 


07 


07 


07 


07 


07 




74 


18270 


- 


18 


45 


22 


07 


47 


2A 


FE 


46 




571 


























17528 


- 


07 


07 


01 


01 


01 


01 


01 


01 




20 


18278 


- 


11 


21 


00 


06 


14 


3A 


OC 


47 




217 


























17536 


- 


01 


01 


01 


01 


OA 


OA 


OA 


OA 




44 


18286 


- 


19 


77 


10 


FC 


2A 


05 


47 


7E 




656 
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OA 


OA 


OA 


OE 


OE 


OE 


OF 




97 


18294 


- 


2A 


FE 


46 


19 


30 


20 


FC 


ED 




973 


























17552 
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10 


12 


12 


10 


OE 


OC 




125 


18302 
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4B 


07 


47 


OA 


19 
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30 


20 
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08 
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03 




40 
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FE 
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05 
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05 
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Suprimento e coisa seria 



Com a Centraldata 
*,» a entrega e imediata 



Mantenha o seu computador bem alimentado adquirindo 
produtos de qualidade consagrada 



RALDATA 

prescntacoes Lida 



• Discos Magneticos: 5 Mb. 16 Mb, 80 Mb, etc. 

• Fita Magnetica: 600, 1200 e 2400 pes 

• Fita CARBOFITAS p/lmpressoras: Globus, M 
100/200 — B 300/600 — Elebra 

• Fita p/lmpressoras: Elgin, Epson, Digilab, Diablo, 
IBM 1403/3203, etc. 

• Cartucho Cobra 400 

AV. PRESIDENTE VARGAS N° 482 GR. 201/203 Tel.: KS (021) 253-1120 



DISKETES: 5 1/4 e 8" e fitas magneticas 
• marca VERBATIM 
ETIQUETAS PIMAC0 — PIMATAB 
PASTAS E FORMULARIOS CONTINUOS 




Um dia chegamos a conclusao que precisamos agilizar nossos jog os. 

Se esse 6 o seu caso, conhega duas rotinas faceis. Sao para usuarios do ZX-81 



Jogue 

em ritmo Assembler 



Giangiacomo Ponzo Neto 



maioria dos jogos comercializados para o ZX-81 con- 
tain rotinas em linguagem de maquina (Assembler). 
Isso se deve, principalmente, ao fato de o BASIC des- 
ses equipamentos ser considerado muito lento, o que 
toma os jogos que empregam apenas essa linguagem um tanto 
enfadonhos. 

Por causa disso, muitos usuarios, que ao comprarem um mi- 
cro sonhavam em desenvolver seus proprios jogos animados, se 
frustraram. E o que ocorre, talvez na maior parte desses casos, 
6 que esses usuarios desistem de tentar e acabam mergulhando 
nos jogos disponiveis no mercado. 

Neste artigo, mostraremos duas rotinas simples, bastante co- 
muns em jogos. Vamos analisa-las com calma. de maneira que 
os poucos iniciados possam come9ar a ver que o Assembler nSo 



N* 


hnemOnicos 


CdOIGOS 


comehtArios 


1 


LO HL. (16421) 


2A 


25 


40 


Carrega em HL a tecla acionada. 




LD A, 223 


3E 


DF 




Coaipara com a tecla 5. 




CP M 


BC 






* 


JR NZ.AA 
LO A, 247 


20 


1C 






5 


3E 


E7 






6 


CP L 


BD 








7 


JR NZ.AA 


20 


17 




Em caso neqatlvo, aalta para AA. 
Carreaa em HL o enderego anterior 
ao inicio da memoria de video e 


0 


LO HL.T76396) 


2 A 


OC 


40 




LO DE . 66 1 


1 1 


95 


02 


10 


ADO HL. DE 


19 






posiciona para o SCROLL a eaquerda 




LO O.H 


54 








12 


LD E.L 


5D 








11 


INC HL 


21 








14 


LD A, (HL) 


7E 






Far a comparagao do carater a ea- 






EE 


81 




qoerda da nave. Se a nave Ja oatl 


It 


JR Z.BB 

LD BCTlI 


28 


29 




ver no canto eaquerdo, val para BB 






IF 




Define o rontador. 


It 


LOIR 


ED 


BO 




Real lza o SCROLL a eaquerda. 




DEC HL 


2B 






20 


LD IHD.O 


36 


00 






21 


AA LD A, 247 


)E 


E7 




Coaipara coat a tecla 8. 


22 


CP H 


BC 






21 


JR NZ.BB 
LD A.2T5 


20 


1C 






24 


3E 


EF 






25 


CP L 


BD 








26 


JR NZ.BB 


20 


17 




Em caao neqativo. aalta para BB. 
Carreaa em HL o enderego anterior 
ao inicio da memoria de video e po 




LD HL. 176396) 


2A 


OC 


40 




LD DE. 692 


11 


B4 


02 


29 


ADD HL.DE 


19 






aiciona para o SCROLL a direita. 


10 


LD D.H 


54 






11 


LD E.L 


50 








12 


DEC HL 


2B 








11 


LD A, (HL) 


7E 






Far a comparagao do carater a dl 






EE 


83 




reita da nave. Se a nave }a eatl 




JR Z.BB 
LD BCTll 


20 


08 




ver no canto direito, val para BB. 


16 


01 


IE 


00 


Define o contador. 




LOOK 


ED 


B8 






38 


INC HL 


21 








19 


LD (HL) ,0 


36 


00 






40 


B8 RET 


C9 






Volta ao BASIC. 



Figura 1 



e tao complicado, e que eles mesmos podem tentar programar 
e usar rotinas em linguagem de maquina. 

Uma das maneiras mais fdceis de se fazer um programa em 
Assembler (desculpem-me os puristas) e elabora-lo totalmente 
em BASIC e ir “traduzindo”, linha por linha, ate ficar com boa 
parte dos comandos, ou ate sua totalidade , em Assembler. Ou- 
tra maneira 6 usar os programas-compiladores existentes no 
mercado. Eles fazem sozinhos a tradu9ao descritaacima,exigin- 
do apenas que entremos com o programa original em BASIC. 

Mas quern tern um desses programas sabe das limita96es im- 
postas ao BASIC do programa de origem. E atem do mais, exis- 
te aquela satisfa9ao de se ver, feita por nos, aquela rotina em 
linguagem de maquina, que antes era tao lenta. 



ROTINA DE MOVIMENTO 



Essa rotina (figura 1 ) serve como exemplo do que se pode 
conseguir em Assembler sem grande conhecimento. Ela subs- 
titui o famoso trecho que movimenta uma nave em determina- 
da linha da tela, em BASIC: 



LET A«M 

xxxx 

LET A-A*( INKEYS -"8* AND A<27 ) - ( INKEY5- "5" AND A>0) 

PRINT AT 20,A; "Q^g]" 

GOTO xxxx 

Naturalmente, os parametros sublinhados nSo precisam ter 
necessariamente estes valores e o desenho da nave pode variar. 
Mais adiante trataremos disso. 

Para carregar a rotina no micro use o monitor publicado em 
MS 23 no modo A (hexadecimal) ou outro qualquer que voce 
queira. A posi9ao na memdria pode ser definida por voce, j£ 
que s6 se usam saltos relativos nas rotinas (se voce nSo souber 
o que 6 isso, de uma olhada no curso de Assembler publicado 
por MS entre os numeros 21 e 32). Uma maneira 6 criar uma 
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linha REM para guardar as rotinas. Tomaremos esse modo co- 
mo o escolhido. Fa^a urn REM (na l. a linha do programa) com 
mais 1 1 1 caracteres quaisquer. 0 monitor colocara Id as instru- 
9 des Assembler. 0 IP endere 90 de memdria dispom'vel agora 
serd 16514. 

Vamos a uma analise da rotina: a primeira instru^ao canega 
o par HL com uma variavel muito importante do sistema, a 
qual indica a tecla que esta sendo pressionada. Desta instru^ao 
ate a sdtima sao feitas compara^oes para se saber se a tecla 5 
estd sendo acionada. Em caso positivo,o processamento segue 
com um efeito de SCROLL para a esquerda, desde que a nave 
ja nao esteja nesse canto mas apenas na linha da tecla onde ela 
se encontra. Se a tecla 5 ndo estava sendo pressionada, o pro- 
cessamento passa para a instru^ao 21 , que £ onde se encontraria 
o processamento, se houvesse se realizado o SCROLL citado 
acima. Desta instru 9 ao ate a penultima, faz-se para a tecla 8 o 
teste que se fez para a tecla 5, s 6 que, em caso de acionamen- 
to, dd-se um efeito de SCROLL para a direita. 

A chamada da rotina por BASIC serd do tipo: 



zzzz IF INKEYS "" THEN PRINT PEEK 16422; 
"(H)-"; PEEK 1 6 4 2 1 ; " ( L ) - " ; INKEYS 
GOTO zzzz 

Figura 2 

for somado na 28. Alem disso, d preciso diminuir o valor dado 
ao par BC nas instru 9 bes 17 e 36, na medida em que se alterar 
os valores, respectivamente, nas instru 9 oes 9 e 28. Essa mu- 
dan 9 a £ necessdria, pois o par BC serve de contador para o loop 
dos SCROLLS. Se houver mais SCROLLS que o necessdrio, 
ocorrerlo problemas no arquivo de imagem. 

0 desenho da nave pode ser alterado na chamada em BASIC. 
As mudan 9 as na rotina Assembler sao nas instru 96 es 1 5 e 34. 
0 numero com parado (131) e o c 6 digo dos caracteres laterals 
da nave ( m ). Essas instru 9 bes devem ser alteradas de acor- 
do com o novo c 6 digo dos caracteres laterais do novo desenho 
da nave. 



REM (+111 caract ere s) 
PRINT AT 20. 14: "yB" 



ROTINA DE CHAMADA DE TIRO 



yyyy • 

RAND USR 16514 



GOTO yyyy 



Outro exemplo simples. A vantagem da rotina anterior era a 
rapidez. Esta rotina traz outra das vantagens do Assembler. 0 
que veremos adiante dificilmente poderia ser executado em BA- 
SIC satisfatoriamente, apesar de ser uma tradugao. 0 trecho 
em BASIC 6 : 



Novamente, o sublinhado pode ser alterado. 

Escreva a chamada (s 6 para testar) apenas com as quatro 
linhas descritas de RUN e veja, pressionando 5 ou 8 , a rapidez 
da rotina em rela 9 §o ao programa substituido do BASIC. Com- 
pare! Saiba que se a chamada da rotina Assembler fosse feita 
por outra rotina, tambem em Assembler, j d num programa 
completo, nao muito longo, a rapidez poderia ser ainda maior, 
e entao seriamos for 9 ados a colocar loops de espera na rotina. 
Isso ocorre porque o que demora mais no programa apresenta- 
do, por incrivel que pare 9 a, £ a chamada (RAND USR 16514), 
bem mais lenta do que toda a execu 9 ao da rotina em lingua- 
gem de mdquina. 

Finalmente, como mudar os parametros sublinhados nos 
programas em BASIC, agora em Assembler? 



altera£ 6 es 

A primeira mudan 9 a (coluna inicial do PRINT = 14) £ sim- 
ples. Ela £ feita mediante alte^So no PRINT do programa de 
chamada, colocando-se ali a coluna desejada. 

A mudan 9 a das teclas de movimento (5 e 8 ) £ mais comple- 
xa. Mas para ndo perder tempo com tabelas, use o programa da 
Figura 2. Pressione, mantendo o dedo por algum tempo, a tecla 
que voce quer para substituir o 5, anote os valores, e entao tro- 
que os numeros nas instru 95 es da rotina Assembler (segunda e 
quinta instru 9 oes). Para trocar o 8 , empregue procedimento se- 
melhante, s 6 que alterando as instru 95 es 21 e 24. Se voce nao 
esta familiarizado com Assembler, aten 93 o no momento das 
modifica 9 des. 

Para alterar a linha da tela onde esta a nave (20) voce deve 
mexer nas instru 90 es 9 e 28. Note que 661 (da instru 9 ao 9)£ 
igual a 20 x 33 + 1; e que 692 (da instru 9 ao 28) £ 20 x 33 + 32. 
Para colocar a nave na linha 18, por exemplo, substitua os nu- 
meros sublinhados ( 20 ) por 18, e altere as instru 95 es descritas. 
N3o esque 9 a tambdm de alterar o PRINT no programa de cha- 
mada. 

Para alterar os limites que a nave n3o pode ultrapassar £ ne- 
cessdrio mudar o numero que foi somado nas instn^Oes 9 (+1) 
e 28 (+ 32). Maisde 1 na 9 e/ou menos de 32 na 28. Obviamen- 
te, o que foi somado na 9 deverd ser sempre menor que o que 



IF INKEYS-"0" THEN GOTO Jckkk 



.m 



Y 



GARANTA 
SUA MS 
TODO MES! 



ASSINE HOJE MESMO E RECEBA GRATUITA- 
MENTE 6 NUMEROS A SUA ESCOLHA A PARTIR 
DO N9 13. PREENCHA O CUPOM ABAIXO (OU 
UMA XEROX, CASO VOC£ NAO QUEIRA CORTAR 
A REVISTA): 

NOME; EMPRESA; PROFISSAO/CARGO; ENDERE- 
gO PARA A REMESSA; CIDADE; CEP; ESTADO.. 

Nome 



Empresa. 



Prof iss4o/Cargo . 



Enderepo para remessa 

Cidade CEP 

Assinatura Anual : □ Micro Sistemas 



Estado. 



Cr$ 39.000,00 



GRATIS! 6 NUMEROS ATRASADOS. 



Preencha um cheque nominal A ATI Editors Ltda., e envie 
para: Av. Presidente Wilson, 165/Grupo 1210, Centro, Rio de 
Janeiro, RJ. CEP 20.030 - Tels.: (021) 262-5259 e 262-6306 
R. Oliveira Dias, 153, Jardim Paulista, Sffo Paulo, SP, CEP 
01433 - Tels.: (01 1 ) 853-3574 e 853-3800. 

Seu recibo ser 3 enviado pelo Correio. 
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JOGUE EM RITMO ASSEMBLER 



Mas, so isso?..., dirao alguns. 0 que peso 6 que continuem 
lendo e verao a importancia da tradusao dessa linha, que geral- 
mente 6 usada para dar a hora do tiro nos programas em que o 
jogador tern alguma esp^cie de alvo a acertar, desviando o pro- 
grama para a rotina de tiro (que se iniciaria em kkkk). A rapi- 
dez da linha em BASIC ja 6 razodvel (por ser curta), e, por isso 
s6, ndo justificaria o trabalhode se fazer uma rotina Assembler. 
E o tempo da chamada (tipo RAND USR endereso)nao seria 
muito menor que o da linha mostrada. Lembre-se que na outra 
rotina havia uma seqiiencia de instn^Oes bem mais complexa, 
logo, mais demorada, e que ganhou muito em velocidade, quan- 
do em linguagem de mdquina. 

Entao, qual a vantagem? Isso veremos daqui a pouco. 



CARREGANDO A ROTINA 



Para carregar a rotina comece do endereso de memoria 
16584 (logo apds a rotina de movimento) usando o monitor. A 
linha REM anterior j a tern espat^o para esta rotina. Vamos as 
peculiaridades. 

Um tipo de chamada USR nao precisa ser, necessariamente, 
RAND USR, PRINT USR ou LET varidvel - USR (as mais usa- 
das). Introduziremos aqui um GOTO USR. A rotina estd na fi- 
gura 3. A chamada em BASIC 6 do tipo: 



REM (+111 caracteres) 
GOTO USR 16584 

iiil . 

kkkk (rotina de tiro) 



Observe, na figura 3, que: 

1) na instrusao 20, o kkkk foi exemplificado como 200 (C8 
00, em hexadecimal e nao 00 C8, pois a parte mais significativa 
deve ficar na segunda posisSo); 

2) na instrusao 22, jjjj foi exemplificado como 100 (64 40); 

3) naturalmente, kkkk e jjjj podem ter outros valores, desde 
que se tome cuidado com a ordem dos hexadecimais, confor- 
me visto na observasao 1 . 

Se a tecla 0 for pressionada. o processamento ira para kkkk, 
caso contrdrio, continuara normalmente, indo para jjjj. Como 
isso ocorre? Bem, as rotinas Assembler no ZX-81 retomam ao 
BASIC com o valor (decimal) do par BC. Se fizermos GOTO USR 
enderefo, o micro, depoisde executar normalmente a rotina, a 
partir do endere 90 indicado, retomard ao BASIC com o que es- 
tiver em BC, e usard seu valor para GOTO. Entao, d s6 darmos 
a BC, na rotina, o numero da linha para a qual o programa de- 



!!• 




MNEM6NICOS 


Cfloicos 


comektArios 




1 




LD 


HL. (1(421) 


2A 


25 


40 


Carrcga em HL a tael a acionada. 


2 




LD 


A, 245 


)E 


F5 




Com par* com a* tecla. 8 o 0, 


•e 


3 




CP 


H 


BC 






pressionada* ao mesmo tempo. 




« 

S 




JR 

LD 


: i .® 


3 c 


05 

EP 




Em caao naqativo, salts para 


cc. 


t 




CP 


L 


BD 










7 




JR 


I.EE 

A.ni 


28 


14 




Em caso po.ltlvo, salt* para 


EE. 




cc 


LD 


JE 


OD 




Coopara com as teclas 5 e 0. 


se 






CP 


H 


BC 






acionadas ao mesmo tempo. 




10 




JR 


NZ.DD 

A,2TT 


20 


05 




Em caso neqativo. salts para 


DO. 


1 1 




LD 


)E 


E7 








12 




CP 


L 


BD 










13 




JR 


*.EE 


28 


0A 




Em caso positlvo, salts para 


EE. 




DO 


LD 




JE 


PD 




Compare com a tecla 0. 


W, 


CP 


H 


BC 








1» 




JR 


NZ.FF 

A.2T5 


20 


09 




Em caso neqatlvo, salts para 


FF. 






LD 


3E 


EP 






H 




CP 


L 


BD 










19 




JR 


tl 

2% 


20 


04 








20 


EE 


LD 


01 


C8 


00 


Carreqa em BC o numero kkkk. 




21 




RET 


C9 




s 


Volta ao BASIC. 




23 
















RET 








Volta ao BASIC. 





Figura 3 



vera saltar, caso: a) a tecla 0 esteja acionada (kkkk); b) a tecla 
0 ndo esteja acionada (jjjj). Atente bem para as observances re- 
ferentes a figura 3 , relacionadas acima. 



RETOQUES FDMAIS 



Outro fato interessante 6 que no BASIC a linha testa o 0, 
mas se voce apertar o 0 e outra tecla do jogo, por exemplo, 
uma das teclas de movimento da sua eventual nave, nada 
acontecerd: nem a nave se move, nem o programa desvia para 
a rotina de tiro. Como solucionar o problema? Em BASIC, fi- 
caria complicado e implicaria em linhas extras, aumentando a 
lentidao. Porem, em Assembler, pode-se fazer algo mais sim- 
ples. Usaremos a rotina da figura 2. Rode-a e aperte 8 e 0 jun- 
tos e fa$a a verificanio dos valores na figura 3. Repita o proce- 
dimento para 5 e 0 juntos, e 0 sozinho. As teclas 5 e 8 sao para 
compatibilizar as duas rotinas mostradas neste artigo, pois sdo 
as teclas de movimento. Assim, qualquer combinanao com at 6 
duas teclas do jogo (incluindo o 0) estara prevista na rotina e o 
desvio se dard normalmente. Se ndo forem 5 e 8 as teclas de 
movimento, troque os valores nas instrunoes de comparanao 
usando a rotina da figura 2, para saber os valores a serem alte- 
rados. Se houver mais teclas utilizaveis no jogo, que poderiam 
atrapalhar, caso apertadas junto com o 0, fana mais compara- 
95es, do mesmo tipo que foram feitas para o 5 e 8 junto ao 0, 
inclusive podendo ser prevista a hipbtese de mais de duas teclas 
serem apertadas ao mesmo tempo. 

Jd com tudo digitado, fa^a o teste: 

1 REM (rotinas Assembler) 

20 GOTO USR 16584 
100 SCROLL 
120 PRINT 
140 GOTO 20 
200 SCROLL 
220 PRINT "X" 

240 GOTO 20 



De RUN e aperte 0, sozinho ou junto com 8 ou 5. O pro- 
cessamento 6 desviado, conforme pretendi'amos. 



MOVIMENTO E TIRO 



Se adicionarmos a rotina de movimento uma compara- 
9 ao, para haver deslocamento com o 0 pressionado junto ao 5 
ou ao 8, poderemos, com duas rotinas no mesmo jogo, fazer o 
movimento e dar ordem de tiro, apertando duas teclas ao mesmo 
tempo, sem que uma interfira na a^do da outra! 

Essa 6 mais uma grande vantagem do Assembler, alem da ra- 
pidez. Tente fazer o que foi mostrado em BASIC. E se conse- 
guir, veja como ficara lento. 

Um exercicio para voce: troque o RET na instru 9 do 40 da 
figura 1 (endere 90 16583) por um NOP(c6digo 0 - instr^do 
inoperante), fazendo POKE 16583, 0. Fa 9 a um joguinho em 
BASIC usando a linha REM com as rotinas Assembler. Quando 
for mover a nave chame GOTO USR 16514. Agora as duas ro- 
tinas estao juntas e farao o movimento e a ordem de tiro, de 
acordo com a (s) tecla (s) acionada (s). 

Temos entao as rotinas para incrementar nossos jogos. Voce 
pode tentar traduzir outros trechos comuns nesses programas 
e, quern sabe, ate' transformd-los totalmente para Assembler. 

Agora, se algudm pensou: e uma boa ideia..., entao atingi- 
mos o objetivo desse artigo. ■ 



Giangiacomo Porno Neto cursa Engenharia El&trica na UFRJ, onde vem 
ganhando experiincia em programapao FORTRAN. Trabalha tamb6m 
em BASIC e Assembler com seu micro da linha Sinclair e utilize calcula- 
doras prorram&veis. 
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Papel autocopiativo Extra Copy. 
O comeco de um trabalho limpo. 



Bfl 



Extra Copy e, 
tecnologicamente, o mais 
avangado papel 
autocopiativo produzido 
no Brasil. A base do 
Extra Copy eo papel para 
formulariocontinuo 
Simaform, internacionalmente 
reconhecido como um dos 
melhoresem seugenero, 
fabricado pela IPP. 
Otipoderevestimentoeo 
grande diferencial que torna 
Extra Copy sem similar 
no mercadobrasileiro. 
Aocontrariodos 
autocopiativos 
microencapsulados, 



Extra Copy e fabricado 
com revestimento a base de 
emulsao. Asuperficiee 
mais lisa e uniforme e, 
consequentemente, 
uma impressaoe copias 
sem falhas.As bobinas 
Extra Copy para telex 
aumentamaqualidadee 
odesempenhoda 
teleimpressora. 



Ela podera imprimir os telex 
em ate 8 vias. Copias perfeitas. 

Extra Copy e uma revolugao 
no processamento de dados. 

Extra Copy aumenta a 
eficiencia da impressora e 
pelo simples fatodenao 
tercarbono, reduzo 
trabalho do operador. 

Extra Copy e garantia de maior 
produtividade e economia 
gerando copias limpase 
seguras em ate 8 vias. 

E uma perfeita adequagao 
aosequipamentos. 
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Filiada a ABICOMP 





Leve logo um microcomputador 
TK 85, porque ele e realmente facil de 
usar: ja vem com manual de instances, 
que ensina,em portugues claro, 
a linguagem Basic. 

A partir daf, voce pode preparar 
seus proprios programas ou utilizar as 
centenas de programas que ja existem 
no mercado,para cadastrar clientes, controlar 
estoques, manter em ordem o or<;amento 
familiar, fiscalizar a conta bancaria, estudar 
matematica, estatistica, jogar xadrez, guerra 
nas estrelas, e o que mais voce puder imaginar. 

E alem disso tudo, o TK 85 tern 
tambem o pre<;o mais acessivel do mercado. 
Pe^a uma demonstra<;ao. 



TK 85,o micro que voce pode usar. 






computadores pessoais 

— 





HURLEY, L., Programac&o 
TKS2/TK-83/TK-85/CP-200, 
Editors McGraw-Hill. 

■ Este livro destina-se ds pessoas 
que estSo se iniciando no campo 
da computagdo. Atravds dele, o 
leitor aprenderd a programar em 
BASIC baseando-se em um con- 
junto de programas que se ajus- 
tam ao TK-82, TK-83, TK-85, 
CP-200. ZX-81 e TS-1000 com 1 
Kb ou 2 Kb de RAM. 

Atravds de um texto simples, 
com ilustragdes, o livro dd expli- 
cagdes bdsicas sobre computador 
— classificagSo das teclas, de- 
sen ho , movimento, numeros, 

tempo e como processar progra- 
mas — o que possibilita ao leitor 
rdpida compreensdb. 

Cada capftulo comega com um 
programs curto e Weil, como por 
exemplo, os de movimentos, jo- 
gos e enigmas que, apesar de sim- 
ples, sdo capazes de despertar 
grande interesse nos iniciantes. 

TOWNSEND, C., dBase // - Guia 
do UsuArio, Editors McGraw-Hill. 



r' 



dBASE II 

ouiado usuAmo 




■ 0 livro 6 um guia prdtico, in- 
formative e claro para profissio- 
nais que queiram utilizer e proje- 
tar programas com o software’ 
dBase II — Banco de Dados. 

Iniciando com Installation e 
passando por Information File Or- 
ganization, Records e Databases, 
o leitor serf conduzido para Sis- 
temas, Programagfles estruturadas 
a outros tdpicos mais avancados. 

dBase II — Guia do UsuArio 
apresenta um resumo de tdcnicas 
que perm item ao usudrio domi- 
nar completamente este software 
para Banco de Dados. 



CASTLEWITZ, C. M., Visicalc - 
Guia do UsuArio, Editors 
McGraw-Hill. 
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H Em bora jd ten ham surgido vd- 
rios outros programas mais sofisti- 
cados, o Visicalc continua sendo 
amplamente usado. Isso se deve a 
sua eficidncia e ao seu bom prego 
em relagdb aos novos produtos no 
meregdo. O Visicalc d uma pla- 
nilha eletrftnica de cdlculo e pode 
ser visto como uma calculadora 
completada com fungdes resi den- 
tes que obedecem a comandos 
programados, para serem entendi- 
dos por ela. Qualquer negdcio 
profissiortal ou problems de con- 
tas domdsticas que precisam ser 
resolvidos com Idpis, papel e uma 
calculadora, podem ser rapida- 
mente soludonados atravds deste 
tipo de programs. Uma das vanta- 
gens do Visicalc d que, caso haja 
alguma alteragSo no item ou na 
folha, nfc d preciso redigitar a 
folha inteira, o programs faz esse 
trabalho. 

O Visicalc — Guia do UsuArio 
d um guia prdtico para a utiliza- 
gdb deste software, por isso, ele 
deve ser usado como um texto de 
acompanhamento, isto d, suas li- 
gdes devem ser seguidas juntamen- 
te com o computador. 

Este livro vai aldm dos concei- 
tos bdsicos, fornecendo tdcnicas 
avangadas e especiais, como tam- 
bdm mdtodos que podem ser usa- 



dos para resolver os problem as 
mais complexos. 

O autor apresenta exerefeios 
que visam preparar o leitor para a 
elaboragSo de relatdrios profissio- 
nais, assim como fazer com que 
ele obtenha o mdximo em quali- 
dade e eficidncia em sua ativida- 
de. 

O livro trata, entre outros, dos 
seguintes assuntos: Entrada de da- 
dos, Definigfo de cdlculos, Alte- 
ragSo do mostrador da tela, C6- 
pia de dados, Controle de cdlcu- 
los e Tdcnicas de geragto de mo- 
del os. 



GONCALVES, A.; SAMPAIO. F.; 
ALBERTO, L; SAMPAIO. P., 

BASIC Para 19 e 29 Graus, 

Editora Miguel Couto. 

■ BASIC para 19 e 29 Graus d 
destinado a alunos que estejam 
cursando da 7? sdrie do 19 Grau 
atd a 3? sdrie do 29 Grau. O obje- 
tivo do livro d transmitir informa- 
gdes sobre a linguagem BASIC e 
suas aplicagdes, de maneira diddti- 
ca O primeiro capftulo d um his- 
tdrico da evolugdo humana, no 
sentido de medir quantidades e re- 
gistry -las. Ele trata dos primeiros 
instrumentos utilizados pelo ho- 
mem — seus prdprios dedos e pe- 
queros objetos — atd os sofisti- 
cados aparelhos de hoje, os compu- 
t ado res. Os capftulos 2 e 3 explicam 
o que d um computador, como ele 
funciona, e o que sSo e para que 
servem as linguagens de computa- 
gSo. O quinto capftulo d sobre 
como operar o aparelho (como li- 
gd-lo, o teclado, teclas com ca- 
racteres especiais, recursos espe- 
ciais da tecla SHIFT). A partir 
daf, a obra se baseia no CP-500 e 
seus similares, apresentando exer- 
efeios com e sem o micro, basea- 
dos em assuntos como: instrugdes 
e comandos (PRINT, LET, CLS, 
NEW); programagdo; variagdes da 
linguagem BASIC (GOTO, IN- 
PUT); concatenagSo de instru- 
g6es; fungOes aritmdticas; fungdes 
trigonomdtricas; operagdes do 




MODO EDIT e uso do gravador. 
0 livro contdm, ainda, dois apdn- 
dices: programas-exemplos e men- 
sagens de erro. 

BASIC para 19 e 29 Graus po- 
de ser usado durante um ano le- 
tivo, com uma aula semanal de 
50 minutos. Hd no livro uma su- 
gestdo de sala-ambiente, utilizan- 
do micros e alguns programas em 
linguagem BASIC, abordando 
questdes do vestibular Cesgranrio. 

0 conteudo do livro traduz as 
atividades realizadas, com alunos, 
professores e funciondrios, no Co- 
Idgio Princesa Isabel do Rio de Ja- 
neiro, em 1984. 




SAWUSCH, M., 1001 AplicagOes 
para o seu Computador Pessoal, 
Editora Campus. 



I Apresentando uma longa e va- 
riada lista de possfveis aplicagdes, 
este livro discute como criar o 
programa para cada uma delas, ge- 
rando, ainda, diversas outras iddias 
e possibilidades. 

Os programas se destinam aos 
mais diversos usos e preferdneias, 
e suas aplicagdes cobrem os mais 
variados campos: finangas e negd- 
cios (Avaliagdo do Estado do Imd- 
vel, Dispositivo de Vendas, Decla- 
ragSo de Rendimentos. Tabula- 
dor); matemdtica (Andlise Estatfs- 
tica, ResolugSo de Equagdes Si- 
multdneas, Programa/Plotter); 
eiftneia e tecnologia (Cdlculo da 
Eficidncia do Uso da Energia, Pro- 
grama de Antena, Recreagdes Ma- 
temdticas); educagSo (O Compu- 
tador como Instrutor, Simulagdes 
Educativas); passatempos e jogos 
(Computadores e o Xadrex, Escri- 
tor de Histdrias, Mdgicas, Jogos de 
Simulagdo) e gerais (Catdlogo de 
Enderegos e Telefones, Cdlculos 
das Despesas de Luz, Gds e Agua, 
Auxflio aos Deficientes). 

Para ajudar a colocar as iddias 
em agSo, o livro apresenta tam- 
bdm os prdprios programas, fluxo- 
gramas, diagramas e ilustragdes 
que podem ser acompanhados pas- 
so a passo. 
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Na tela do seu Sinclair aparece uma cidade com muitos prSdios. Voce terS 
que fazer um voo rasante noturno debaixo de uma tempestade... 



Aperte os cintos e 
pilote no escuro! 



Claudio Costa 




V oce 6 um piloto cuja missao 6 
sobrevoar uma cidade a noite 
num voo rasante por entre os 
ediffdos, durante uma hora. 
0 aviao, por&n, nao possui alguns im- 
portantes instrumentos de voo, alem de 
estar com os fardis quebrados. 

Agora, s6 lhe resta utilizar sua perspi- 
cdcia e reflexos rapidos, pois estd muito 
escuro e tudo o que voce consegue dis- 
tinguir vagamente 6 a silhueta dos pr6- 
dios 1 & embaixo. Tentar um voo rasante 
6 muito perigoso, porque estd amea^an- 
do um temporal e, embora algumas nu- 
vens se dissipem tao logo voce as atraves- 
se, outras estao carregadas de eletricida- 
de e podem destruir seu pequeno aviSo 
(se isto acontecer, entretanto, o micro 
lhe dar4 a oportunidade de tentar nova- 
mente, quando as conduces atmosfdri- 
cas estiverem melhores). Procure tarn- 
b£m nao destruir as antenas dos edifi- 
cios, at^ porque uma colisio numa delas 
podertf ser fatal. Por isso, manobre com 
cuidado e prove que voce 6 capaz de 
veneer esta prova. 

A digitatjao deve ser iniciada carre- 
gando-se o Micro Bug e criando-se uma 
linha 1 REM com 34 caracteres quais- 
quer. De entrada no Bloco Assembler, 
operando o comando M. Feito isto, re- 
tome ao BASIC e digite a listagem 1. 
Ela vai introduzir o desenho da cidade 
na varidvel CS. Digite as linhas tal como 
estao na figura. 1 , introduzindo uma li- 
nha de cada vez. (Os caracteres assinala- 
dos ( ED ) devem ser digitados em video 
inverso - GRAPHICS SHIFT 5, GRA- 



PHICS SHIFT 8 e GRAPHICS SPACE.). 
Ao final de cada linha, tecle ENTER ou 
NEWLINE e confira o desenho. Se esti- 
ver tudo certo, aperte qualquer tecla e 
repita o procedimento para a linha se- 
guinte. Se houver erro, tecle N e repita o 
procedimento. 

Finalmente, apague as linhas 4 a 15 e 
complete o programa digitando a lista- 
gem 2. N5o use RUN hem CLEAR. Gra- 
ve o programa digitando GOTO 300. As 
teclas 6 e 7 movem o aviso e, ao final do 
jogo, qualquer tecla pressionada inicia 
uma nova partida. Este jogo admite tam- 



Mm que voce o modifique ao seu gosto. 
Uma sugestSo 6 incrementar o programa 
para que o micro fa^a o desenho da ci- 
dade aleatoriamente. Assim, quando vo- 
ce estiver cansado de enfrentar o mesmo 
voo, poderd fazer um novo percurso. 



CUudio Costa 4 desenhista free-lancer e tem 
como hobby a programagSo de microcompu- 
tadores. 
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Bloco Assembler 


16514 




42 


1&53 1 • • • 


201 


16515 


a • s 


12 


16532 • • • 


229 


16516 


a a a 


54 


16533 . . . 


197 


16517 


a a a 


35 


16534 . . . 


in 


16518 






16535 . . . 


31 


16519 




33 


16536 . . . 


126 


16520 




22 


16537 . . . 


35 


16521 


s a a 


205 


16533 . . . 


73 


16522 


a a a 


145 


16539 . . . 


43 


16523 




64 


16540 . . . 


113 


16524 




197 


16541 . . . 


35 


16525 




F, 


16542 . . . 


16 


16526 




0 


16543 . . . 


249 


16527 




Q 


165+4 . . . 


119 


16526 




193 


16545 . . . 


193 


16529 




16 


16546 ... 


o O “ 

cc. 1 


16530 


a a a 


245 


1654" 7 . . . 


201 



IF y < > 0 THEN GOTO 175 
PRINT PT P,T.;P$ 



14-0 IF y < >0 
14-5 PRINT PT 
150 LET C=H 
155 LET H=T 
150 IF 5=216 
165 NEXT T 
170 GOTO 90 
175 IF y=136 
160 FOP Jr 1 
165 PRINT PT 



160 FOR J=1 
165 PRINT H 

190 NEXT J 
195 PRINT P 



‘HEN GOTO 



THEN GOTO 
’0 6 



200 GOTO 23! 
205 FOR J=1 
210 PRINT h' 
PT P,T; V« ' 
215 NEXT J 



' 19,1; 
Hi; ’ PND 

y < > 128 1 



aaa 



BPTEtf 



TO 6 
‘ P,T; P$ 
PT P’.TJ 



Ustagem 1 



4 


DIM 05 i 


r 


LET X = 1 


6 


LET Y =3; 


“7 


FOR T = 1 


0 


PRINT P' 


9 


INPUT C 


10 


PRINT P‘ 


11 


IF INKE 


12 


IF INKE 


* 

— w 


LET X =X 


14 


LET Y=Y 


15 


NEXT T 



0; C$ (X TO Y) 

I I" TuCkl “r T Cl 



Ustagem 2 



10BPOKE 1 6 4 1 : 
15 LET H$= Ik 
20 LET P =3 
25 v-ET C=P 
30 LE"*" H =0 
35 ^ET 5 =H 
40 CLS 
45 PPND 
50 PRINT PT 

55 PRINT 05 
60 FOR T = 1 T 
65 PRINT 



TPB 2' 



30 
ND*3 
35 
90 
95 
100 
105 
110 
5 = ”7 
115 
120 
125 
130 
135 
PEEK 



FOR T=1 TO INT (RND*45) +10 
PRINT PT INT (RND*4) , INT (R 
2) ; CHRs 136 
NEXT T 

PRINT PT P,H.;P$ 



PRINT PT P,H; M 
for T=0 to 30 
LET 5=5+1 

LET P=h+ i. INKEY $ = " 6 " ) - ( INKEY 



LET P=P+(P<0) 

PRINT PT C,T-l; M " 

RPND USR 16514 
PRINT PT P , T ; 

_ET U=PEEK (PEEK 16393+256* 
16399) 



40 PRINT TPE 1; " 

iF INKEY 5 =“ " 
50 GOTO 20 
0© SPUE “PILOT®" 
10 GOTO 5 



>PR PBENS 



TENT PR 



THEN GOTO 



m plus 

com r 

UIDEDTEKTD 

voce ja encontra na 




computer store 




O seu microcomputador CRAFT II plus, 
pode agora ter acesso ao VIDEOTEXTO* - o 
banco de dados da TELESP, com imagens k 
cores, atrav6s de uma interface RS 232-C, um 
modem asslncrono e um software dedicado, 
a venda e em demonstragSo na SACCO. 

Torne-se um usu&rio do VIDEO-TEXTO, 
opcionalmente tamb6m do Projeto CirandSo, 
e garanta hoje o seu presente de Natal. A sua 
famllia tamb6m vai poder usar e gostar 
muito. 

• sao Paulo • Santos • Campinas 

SACCO Computer Store 

Al. Gabriel Monteiro da Silva. 1229 - J. Paulistano 
S3o Paulo - SP - Tel.: (Oil) 852-0799 
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Sessao 




western 



Estamos em pleno velho oeste e voce se vangloria junto a seus 
amigos de ser o melhor gatilho de toda a regiao. Isto chama a atenpao 
do estranho forasteiro de olhar metalico que o observava calado num 
canto do sallon. Com um ar desafiador, ele — um micro da linha 
Sinclair de 16 Kb ou mais — chama voce, na f rente de todos, a provar 
essas qualidades. Agora so Ihe resta aceitar o desafio. Que venpa o 
melhor! 



Claudio Costa 



E ste 6 um jogo para testar a sua habilidade e os seus re- 
flexos. Durante um intervalo de tempo qualquer, sera 
lan$ada uma serie de moedas para o alto. Voce rece- 
bera uma mun^ao inicial de oito balas, mas a cada 
moeda alvejada voce ganhara mais muni^ao. 0 numero de pon- 
tos feitos sera tanto maior quanto mais longe a moeda atingida 
estiver. Entretanto, a cada erro, aldm da muniijao, voce perde 
10 pontos. Nao atirando, voce n5o perde pontos, mas o compu- 
tador considerara que voce nao acertou o alvo e o numero de 
alvos 6 escolhido por ele. Se o seu escore for muito baixo, o 
computador mandara voce praticar mais, dizendo que “voce 6 
pessimo no gatilho”. Agora, prepare-se como um cowboy e 
boa sorte! 

0 PROG RAMA 

Totalmente escrito em BASIC, o programa 6 simples, tendo 
como unicos detalhes a utiliza^ao de operadores ldgicos e efei- 



tos de anima^So. Se o usuario pretender realizar alguma modi- 
fica^ao. as principals dicas sao as seguintes: 

• linha 35: define o numero de alvos e, conseqiientemente, o 
tempo de jogo; 

• linha 95 : estabelece as colunas de impressao da moeda; 

• linha 285 : soma os acertos; 

• linha 350: calcula os erros; 

• linha 355 : calcula o escore (as classificadas podem ser modi- 
ficadas). 

Como este programa utilhza muitos recursos grdficos, 6 pre- 
ciso tomar cuidado na hora da digita^ao para nSo trocar carac- 
teres ou omitir espa 90 s em branco. Grave o programa com 
RUN 450. As linhas seguintes i 450 desenham apenas a apre- 
senta^o do programa e voce pode omiti-las, se desejar ganhar 
tempo de carregamento. 



ClAudio Costa 4 desenhista free-lancer e tem como hobby a programa- 
gao de m icro co mp u tad ores. 



Cowboy 



5 

10 

15 

£0 

£5 

30 

35 

4.0 

4-5 

50 

55 



REM CLAUDIO COSTA 
POKE 16413 , 0 
RAND 
LET M 5 = 

LET 5=0 
LET P =5 
LET A =5 

LET N = I NT CRND*15) +10 
LET M =8 
LET D = 11 
CL 5 

PRINT AT 3 5 : "sma ' « TA B 4; "i 
rAB 5j ”91 ;tae 5; "BP tab 



PRINT TAB 



, TAB 1 
TAB 0j 

•AB 1 : ■’ 



ill Tl-iTflB 

li ; tae l; 



; TAB 4 

0; III 

i; U . 

I II 



tf 



5 0; 

65 FOR T = 1 TO 7 
70 PRINT M $ 

75 LET M$=M$ + ,, i , ‘ 

30 NEXT T 
85 FOR J=0 TO N 
90 LET B =23 

55 LET R = I NT (RND*12) +15 
100 PRINT AT O , 0 ; "MUNICAO : ";M; 

*' " ; T AB £0; "PONTOS: " ; S ; " " 

110 IF NOT M OR J =N THEN GOTO 3 
50 

115 PRINT AT B , R ; "O' 1 

120 IF INKEY $s"0" THEN GOTO 130 

125 PRINT AT B , R ; " “ 

130 LET B=B-1 

135 IF P AND B = 1 THEN GOTO 310 

140 IF B = 1 THEN NEXT J 

145 IF NOT P THEN GOTO 115 * 

150 PRINT AT 3 , D ; " 

155 IF R =D + 1 AND B=3 THEN GOTO 
£15 
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G — v 

X 



160 LET D=D + 1 

165 IF D <27 THEN PRINT fiT B , R ; " 

0 " 

170 IF D < >27 THEN GOTO 125 
175 GOTO 310 
130 LET P=1 
185 LET M=M-P 

190 PRINT AT 10,7; "S"; AT 11,3; “ 
S" ; RT 12 ,9 ; 1 * " 

195 PRINT RT 10,7;" " ; RT 11,8.;" 
" ; RT 12,9;" " 

200 PRINT RT 9,7;"^™ ; RT 8,9;" 
wm' ; RT 3 ,9; ‘ = "; Rt 3, 9;" »";RT 7 
, 9 ; "BUM " ; RT 8 , 12; "1"; AT 3,12;" " 
; RT 7.9;" 

210 GOTO 150 

215 PRINT RT 3.R;"0";RT 7, R-l;" 
" RT 6 , R -2 ; "■ ■" ; RT 9,R-1;" 

A 1 0 , R — 2 ; ■ ■ 

220 PRINT RT 3,R;" " ; RT 7, R-l;" 
" ; RT 6 , R-2; " " ; RT 9, R-l;" 

" ; RT 10, R-2;" 

225 FOP T =9 TO 23 

230 PRINT RT T , R-l; RT T,R + 1 

235 PRINT RT T-l , R-l; " 

240 NEXT T 

245 PRINT RT 23, R; " . " ; RT 22, P; " 

’250 PRINT RT 22. R-2; \ * ; RT 22 , P 
+2; "■■" ; RT 21,R-3;" B B " 

255 PRINT RT 22, R-2;" " ; RT 22 . P 
+2; " "; RT 21 . R-3 ; " 

260 FOR T =1 TO 3 

265 PRINT RT 7,ll;' t B ";RT 6,12;" 

*270 PRINT RT 7,11;" " ; RT 6,12." 

275 NEXT T 
280 lET M=M+2 



G W W 

290 


L- 1 n — n t J. 

LET S=S+10*D 




300 


PRINT RT 23, R-l; " 


" ; RT 22 


,R; " 


11 




310 


PRINT RT 3 . D ; " 




315 


PRINT RT 9,7;" 


; RT 8,9, 


320 


PRINT RT 10,7; "S'* 


; RT 11,8; " 


S '; p>t 


• 12 ,9; ■ " 




325 


PRINT RT 12,9;" " 


; RT 11,8 .; " 


" ; A” 


‘ 10,7; " “ 




: 30 


LET P =0 




335 


LET D = 11 




340 


IF S THEN LET S =3 


-10 


345 


NEXT U 




350 


LET E =-J-A 




355 


LET C=A*10/J 




360 


FOR T =9 TO 31 




365 


PRINT RT 3 , T ; " B " ; 


RT 3 , T, ,,B " 


370 


NEXT T 





375 PRINT TAB 11; ("SUA MUNICRO 
RCRBOU" RND NOT M)+(" TEMPO E5G 
OT RDO " RND M) 

330 PRINT RT 6,10; "UOCE RCERTOU 
";fl " ALUO"; ("S" RND RoDjTRB 
15; "E ERROU " ; E 

335 PRINT RT 11,12; "UOCE E B ";( 
"LRMENTAUEL" RND C < =1) + ( " PESSIMO 
" RND Ol RND C <3) + ("RUIM" RND C 
; =3 RND C<5) + ("RAZOAUEL" RND C > = 
5 RND C < =3) + ( "BOM" RND 08 RND C 
<10) + ("FERR" RND C = 10) 

390 PRINT TRB 12;"N0 GflTILHO" 
395 IF C <8 THEN PRINT RT 15,9;" 
RCONSELHO PRhTICRR MAIS" 

400 PRINT RT is . 13; "TECLE O P/ 
JOGRR ” ; TRB 18; "DE NOUO" 

405 IF INKEY $<> "0" THEN GOTO 40 



410 RUN 

450 5 RUE "COUBOY" 

455 PRINT RT 10.7; "Hi HI I 

II I 

460 PRINT TRB 7; "| B | || |U : 



I 



465 PRINT TRB 7; 
470 PRINT TRB 7; 



1 .1 mini i 



1 11 

* 



475 G05UB 570 
430 FOR T = 1 TO 3 
435 SCROLL 

490 PRINT TRB 31; " " 

495 NEXT T 
500 FOP J = 14 TO 46 
505 PLOT J , 30 
510 NEXT J 
515 GOSUB 570 

520 PRINT RT 9,0; "1 0 OBJETIUO 
DO JOGO E" AlUEJRR A 5 MOEDRS R 
TIRRDRS PRRR CIMfl." 

525 GOSUB 570 

530 PRINT , , i SE UOCE CONSEGUI 
R, GRNHR MR IS MUNICRO. MRS SE 
ERRRR , PEP.DE PONTOS." 

535 GOSUB 570 

540 PRINT , , i PRRR ATIRAF: TECL 
E ""0""." 

545 GOSUB 570 

550 PRINT ,, E BOR SORTE . . . " 

555 GOSUB 570 
560 RUN 

570 FOP T =0 TO 20 
575 NEXT T 
530 RETURN 




CONSULTORIA ORGANIZACIONAL 
DESENVOLVIMENTO DE SOFTWARE 
IMPLANT AQ AO DE S/STEMAS 
TRE/NAMENTO 



S/STEMAS DESENVOLV/DOS: 

• ADMINISTRAQAO DE IMOVEIS 

• CONDOMiNIO 

• CONTABILIDADE 

• CONTAS CORRENTES 

• GERENCIA DE 

representacOes 

• MALA DIRETA 

• OPEN MARKET 

SEGMENTO DO MERCADO 

Mini e microcomputadores 



'v v n V 

s°32$o 

HOP 



CP/M 
Labo 8221 
Itautec 
Sistema 700 
EBC 



Maquis 
Unitron 
CP 500 
e compativeis 



AV. RIO BRANCO. N° 185. GR. 1820/21 
CEP: 20045 - TEL: (021) 252-1569 
RIO DE JANEIRO • RJ. 
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No final da guerra, restam as duas "grandes potencias" apenas bases de 
m/'sseis. Vence aquela que arrasar o inimigo, neste programa para Apple 



Guerra 



na montanha 



Andre Koch Zielasko 




G Guerra na Montanha 6 um jogo desenvolvido num 
Micro Engenho, modelo antigo, com 48 Kb e drive, 
sendo portanto compativel com os equipamentos da 
linha Apple, empregando cores e o recurso sonoro. 

0 jogo cria uma tela de alta resolu 9 fo representando uma 
montanha, se vista de perfll. Nos dois extremos da tela estdo 
implantadas bases de misseis, que serlo controladas indepen- 
dentemente por dois jogadores. 0 objetivo 6 destruir a base ini* 
miga, cada um com seu respectivo canhao. Por isso € import an- 
te calcular o angulo de tiro a partir do primeiro disparo. Deve 
ser levado em conta o fat or vento, que pode estar soprando pa- 
ra um lado ou outro, com a veloddade oscilando atd, no maxi- 
mo, 20 quilometros por hora. 

A partida termina quando a base inimiga 6 destruida. Mas 
apenas com muita sorte isso acontece nos primeiros tiros. Hd 



obstdculos a veneer, como a montanha e a mudan 9 a da dire 9 io 
do vento, que for 9 ard a altera^o do angulo de tiro. Terminada 
a partida, surgem novamente na tela as duas bases de misseis. 
dispostas em nova drea geografica, isto 6, com montanha dife- 
rente ou atd mesmo uma cordilheira. A sugestfo 6 marcar a 
partida por sets fmpares: tres, cinco ou sete. Muita aten^So na 
tarefa de digitar, pois a impressora utihzada n5o diferencia, co- 
mo deveria, um 0 de um 0. 



Andre Koch Zielasco estuda linguagem BASIC. FORTRAN, COBOL a 
Assembler. Pesquisa o emprego de micros de Idgica Sinclair nas Areas de 
Astronomia e Telecomunicagdes. FreqQentou por dois anos o curso de 
Tecnologia em Processamento de Dados da Unisinos. RS. 
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Guerra na 



10 


REM 






15 


REM 


ANDRE KOCH ZIELASKO 




20 


REM 


CX. POSTAL 77 




23 


REM 


TRAMANDA 1 RS 95590 




30 


REM 






40 


GOSUB 930 




50 


FOR 


J - 1 TO 3: FOR I - lOO 


TO 




60 


STEP - l: POKE 0. 1: POKE 




l.t 


>: CALL 900: NEXT I.J 




53 


MGR 






60 


DIM 


YX 1 160 » : HCOLOR- 0: FOR 


V 




m 


0 TO 159: HPLOT O.Y:VX(Y) 




m 


PEEK (38) ♦ PEEK (39) 


• 




236: NEXT 




70 


LET 


D* - CHR* (4) 





80 HOME 
TO 6 • 0.015 
lOO DIM HX(279i 

no ss • - I6-S3& 

120 GOSUB 1301 GOTO 250 
130 HOG 

140 HCOLOR- 3! YO - lOO ♦ RND (1 

> • 40S VI - lOO ♦ RND (1) • 

40 

150 XO - lO ♦ RND (!) • 70: XI - 

270 - RND ( 1 ) • 77: XL - XO ♦ 
io:xr - XI - 40 
160 V - VO 

170 FOR X • 3 TO 275: IF X < XL THEN 
HPLOT X,VO TO X , 191: MX < X > - 
VO; NEXT : GOTO 120 
ISO IF RND (l) < .2 THEN DV - RND 
111 • 6 - 3 

190 IF V > 150 THEN DV - - ABS 

(DV) 

200 IF V < 70 THEN DV - ABS (DV 

> 

210 IF X > XR THEN DV - SON (Y1 

- V) • 2.5: IF ABS (V - VI 
> < 3 THEN DV - 0:V1 - V 

220 HX ( X ) - V 

230 HPLOT X,Y TO X,191:Y - Y ♦ D 
y: next 
240 RETURN 
250 REM 

260 READ NS: READ LN 

270 DIM SX(LN): FOR I - 1 TO LN: 

READ SX ( 1 ) : NEXT I 
200 H - 8180 - ln: himem: H 
290 POKE H,NS 

300 POKE 233, INT (H / 256): POKE 
232, H - 256 • PEE) <27.3>: FOR 
I - H ♦ 1 TO LN ♦ H: POKE I, 

SX(I - H> : NEXT 
310 SCALE- l: ROT- 0 
320 REM 

330 KK - 3.1415927 / 180 
340 FI - 0:F2 - 0 
350 GOSUB BOO 

360 IF RND (1) < .5 THEN 470 
370 GOSUB BIO 

380 HCOLOR- 5: ROT- 0: DRAW 1 AT 
XO, YO - 13: HCOLOR- 6: DRAW 
1 AT XI, VI - 13 

390 VTAB 23: HTAB 1: INVERSE : PRINT 
■ LANCANDO "«: HTAB 30: NORMAL 
; PRINT "CARREGANDO" 

400 F - 0 

405 POKE 33.15 

410 VTAB 21 : HTAB 1: INPUT "ANGU 
LO: "1A1 

415 POKE 33,40 

416 FOR OO - 1 TO 3: POKE 0,80: POKE 
l.lio: CALL 900: POKE 0,100: 

POKE 1.144: CALL 900: NEXT 
00 

420 D1 - - 2 • SIN (KK • A1):XA 

- xo:va - vo - 4:Ei - 2 • cos 
(KK • All 

430 ROT- O 

440 GOSUB 690: FI - O: XX - XA:YY - 
VA - 15: HCOLOR- 5: GOSUB 65 

0 : xa - xo:ya - vo 

450 IF ABS (XI - XX) < 4 THEN X 
X - Xl:YY - VI - 13: GOTO 56 

o 



Montanha 



460 IF ABS 1X0 - XX) < 4 THEN F 

- i:xx - xo:yy - vo - is: goto 

560 

470 HCOLOR- 5: ROT- 0: DRAW 1 AT 
XO, YO - 13; HCOLOR- 6: DRAW 
1 AT XI, VI - 13 
475 GOSUB 820 

480 VTAB 23: HTAB 1: PRINT "CARR 
EGANDO"i: HTAB 30: INVERSE : 

PRINT - LANCANDO NORMAL 

490 F - 1 

SCO VTAB 21 : HTAB 301 INPUT “ANG 
ULO :-|A2 

504 GOSUB 020 

505 FOR 00 - 1 TO 3: POKE 0,50: POKE 

l.ioo: CALL 900: POKE 0,90: POKE 

1,144: CALL 900: NEXT OO 

510 D2 - - 2 • SIN (KK • A2):XB 

- xi:vb - vi - 4:E2 - - 2 • 

COS (KK • A2) 

520 GOSUB 690: XX - XB:YY - VB - 
is: HCOLOR- s: GOSUB 6SO 
530 IF ABS (XO - XX) < 4 THEN X 
X - XOIVY - YO - 13: SOTO 56 
0 

540 IF ABS (XI - XX) < 4 THEN X 

x - xi:vy - vi - i3:F - o: goto 

560 

550 GOTO 380 

560 FOR O - 1 TO 16: HCOLOR- 8 • 

RND (1): DRAW 1 AT XX, YV 
570 FOR I - 2 TO 4: HCOLOR- RND 

(i> • e: draw i at xx, yy: for 

J - 1 TO 10: NEXT : HCOLOR- 
o: DRAW I - 1 AT XX, yy: NEXT 

580 FOR I - 1 TO 3: NEXT : DRAW 
4 AT XX, YY 

590 SCALE- l: NEXT 0 
600 GOSUB 130 

610 HCOLOR- 5: ROT- O: DRAW 1 AT 
XO, YO - 13; HCOLOR- 2: DRAW 
1 AT XI, VI - 13 

620 IF F - O THEN SI — SI ♦ 1: GOSUB 
800: GOTO 480 

630 IF F - 1 THEN S2 - S2 ♦ 1: GOSUB 
800: GOTO 390 
640 END 

650 DRAW 1 AT XX, YY 

660 FOR I - 2 TO 3: HCOLOR- 5: DRAW 
I AT XX, yy: FOR J - 1 TO 10: 

NEXT : HCOLOR- O: DRAW I - 
1 AT XX, YY: NEXT 

670 FOR I - 1 TO 3; NEXT : DRAM 
3 AT XX, YY 
680 RETURN 
690 IF F - 1 THEN 750 
700 XN - XA:VN - VA 
710 XA - XA ♦ ei:ya - VA ♦ D1:D1 - 
D1 ♦ G:E1 - El ♦•Wl 
720 IF VN < 1 OR VA < 1 THEN 710 

730 HCOLOR- 0:P - YX(VA) ♦ XA / 

7:A - PEEK (SS) - PEEK (SS 
): hplot xn,yn:o - peek (P> 

: HCOLOR- 3: HPLOT XA.VA: IF 
Q < > PEEK (P> AND XA < 27 

7 THEN 700 
740 RETURN 
750 XN - XB: VN - VB 
760 XB - XB ♦ E21YB - YB ♦ D2:D2 - 
D2 ♦ G:E2 • E2 » Wl 
770 IF VN < 1 OR VB < 1 THEN 760 

700 HCOLOR- 0:P - YX(YB) ♦ XB / 

7: A - PEEK (SS): HPLOT XN, V 
N:Q - PEEK (P>: HCOLOR- 3: HPLOT 
XB.VB: IF 0 < > PEEK (P) AND 

XB > 3 THEN 750 
790 RETURN 

800 VTAB 24: HTAB 10: PRINT "• “ 

IS1I" •“«: HTAB 27: PRINT "• 
• 1821 " •') 

810 W - 19 - INT ( RND (1) *40) 

:wi — w / ioooo 



B20 VTAB 22: HI HP 1/: PRINT "VEN 

to: “i abs (WM- ••:: htab i 

9: VTAB 23: IF M < 0 THEN PRINT 

»< RETURN 

830 PRINT >"l 

040 RETURN 

850 FOR I - 900 TO 900 ♦ 18: READ 
A: POKE I, A: NEXT I: RETURN 

855 DATA 173,48,192,136,208,4,19 
8, 1,240,8,202,208,246, 166.0, 

76, 132,3,96 

860 DATA 4, 143,0, 10,0,33,0,60,0, 

103.0. 146. 146. 146.38.47.45.5 
3,61,63,63,55 

870 DATA 43,45.45,62,63,63,55,45 
,45,43,7,0, 146, 146, 106, 123,7 
3,9,21,214 

800 DATA 251.231, 187,78,77,203,2 
7, 13, 13, 13. 13,30.223.253,63. 

233.31.7.0. 18 

890 DATA 77, 149,233,219,221,219. 

223, 131,131,78,9,77, 103,9,77 
. 149,250,231,251,39 
900 DATA 31,223,213, 187,77, 103,7 
7, 13,13,13, 109.77,213,219.21 
9,219,221.31,63.43 
910 DATA 43,0,36,228,219, 14,30, 1 
4,246,219, 150,78,9, 151,77,9. 
100,12, 109,42 

920 DATA 150.18,151.131.223,28.2 
8. 148,242,31. 196,28,23.222, 1 
23,73,73,73,73,73,9,3,0 

930 TEXT : HOME : GOSUB 1220 
940 VTAB 5 

950 PRINT “DUAS BASES ESTAO LOCA 
L I 7 ADAS EM LADOS" 

970 PRINT "OPOSTOS DE UMA CORDIL 
HE IRA COBERTA DE NEVE." 

980 PRINT "O VENTO SOPRA CONSTAN 
TEMENTE" 

990 PRINT "COM VELOCIDADE DE, NO 
MAXIMO 20 KM/H.” 
lOOO PRINT 

1010 PRINT "SUA MISSAO E’ CALCUL 
AR O ANGULO APROPRIADO" 

1020 PRINT “PARA 0 LANCAMENTO DO 
PROJET I L NUCLEAR" 

1030 PRINT "DA SUA BASE E ENT AO. 

1040 PRINT : PRINT : HTAB 10: FLASH 
: PRINT "-DESTRUIR 
NORMAL 

1050 PRINT : PRINT "A BASE INIMI 
GA 

1060 PRINT : PRINT : INPUT "TECL 
E <CR> PARA CONTINUAR"! X* 

1065 GOSUB 850 
1070 HOME 
1080 VTAB 3 

1090 PRINT "PARA CUHPRIR SUA MIS 
SAO, VOCE DEVE" 

llOO PRINT "CALCULAR 0 ANGULO AP 
ROPRIADO DA" 

1110 PRINT "TRAJETORIA DO SEU CA 
NHAO, " 

1120 PRINT "DIGITANDO O NUMERO C 
ORRESPONDENTE" 

1125 PRINT "SEGUIDO DE <CR>" 

1130 PRINT 
1140 PRINT 
1150 PRINT 
1160 PRINT 
1170 PRINT 
1180 PRINT 

1190 VTAB 22: INPUT "TECLE <CR> 

PARA COMECAR A BATALHA. . . " I X 

• 

1200 HOME : VTAB 22: HTAB 10: PRINT 
" PREPARE -SE PARA A BATALHA' 1 

1210 RETURN 
1220 TEXT : HOME 
1230 VTAB a: HTAB 6: PRINT "G U 
ERRA NA MONTANH 
A 

1260 FOR P - 1 TO lOOO: NEXT P 
1270 HOME 

1280 REM AOUI VAMOS NOS ... ••• 

1 290 RETURN 








Tres astronautas estao per didos num p/aneta desconhecido e so voce poderd 
sa/va-los. Mas cuidado com as estrelas que aparecerao na tela do seu Sinclair 



Missao resgate 

Cldudia E leone Gomes 



V oce 6 o comandante de uma nave de resgate (A) e 
precisa salvar tres astronautas que estao isolados 
num planeta desconhecido. Para realizar esta missao, 
voce tern cinco naves, que serao perdidas toda vez 
que houver um choque com uma estrela, um pouso fora das 
plataformas de resgate ou a saida do espa 90 pelas laterais da 
tela. O movimento das naves 6 feito atraves das teclas 5 (esquer- 
da)e 8 (direita). A nave 6 lanfada aleatoriamente pela nave mde. 

0 jogo apresenta os seguintes nfveis de dificuldade: 

. determinar a velocidade inicial da nave de resgate (pelo jo- 
gador), que vai de 1 a 4; 

. a cada resgate a velocidade da nave aumenta; 

. completada uma missdo (tres rebates), o c£u fica mais es- 
trelado e surgem outros tres astronautas para serem resgata- 
dos. 

Sempre que o jogador completar tres missOes, ganhard outra 
nave. No caso de perder todas as naves, ainda restard a opsao 
de ganhar outras cinco naves e continuar o jogo no mesmo nf- 



vel de dificuldade em que se encontrava antes de perder a ul- 
tima nave ou comesar a jogar novamente com a dificuldade ini- 
cial. Boa sorte e feliz missdol 

DIGITAQAO 

Para a parte em Assembler, carregue o computador com o 
monitor Assembler publicado em MS 23 e entre com os blocos 
1, 2, 3 e 4, nao se esquecendo de antes criar as quatro linhas 
REM, do inicio da listagem BASIC, com os seus respectivos 
numeros de caracteres. Voce pode utilizar tambdm o MICRO 
BUG. Ap6s isso, elimine o monitor e digite o BASIC. Termi- 
nado, de RUN 2000 para gravar. 

ClAudia E leone Gomes 6 professors formada pelo Instituto de Educapao 
e com curso de Introdupio em Processamento de Dados e Programapao 
em Microcomputadores reelizado no SEN AC. i usuiria de um TK-85 
M um ano e meio. 




i POKE 16372 , CODE INKEY • 

9 BAND DSP 16874. 

10 Z e PEEK 16873=0 THEN GOTO 5 
15 POKE 16544,0 
20 GOTO 170 
25 BAND 

30 BAND USP 16753 
40 uET M *0 
45 POKE 16944.0 
50 -£T Pa© 

60 LET S*sCHP* 128*CHP* 144*CH 
P* 166*CHP* 145 
-0 - E T NAU =5 
80 LET N1 =255 
95 G05UE 3000 

100 -E7 P0SA=PEEK 16396 *258-CEE 
•> 16397*36 
110 LET F U AG*0 
130 GOSUE ~000 



140 POKE 16370 . P05A-256*INT PO 
5A 256) 

150 POKE 16871. INT (P05A 256 
153 POKE 16739 N 1 

158 POKE 16741. N2 

159 POKE 16873,0 

160 GOTO 8 

1'0 _ET P05 *PEEk iea70*256*PE5" 
16871 

173 I* PEEK 16873*1 THEN GOTO 4 
00 

175 COKE P03 53 

180 LET- p=e *i 

135 i_ET N1.N1-5* (Nl>125 

190 FOP N«1 TO 5 

200 PRINT 6T 0.14; "PE5G. •; AT 0 

14. "BB1" 

210 N 

220 PRINT P- 0.20; ChR* > CODE 5T 



R* P * 1 2 81 

230 I® P a 3 then GOTO 300 

231 GQ T 0 5000 

232 IF FLAG *0 ThEN GOTO 250 

236 fop N = 1 TO 6 

237 PRINT OT 4*14*PND , 1+29*RND 




260 GOTO 100 

300 LET M*H*1 

305 LET f l «g,i 

310 “OR N * 1 TO 5 

320 0,3; "^-S50E5 c* 

"" 330 

340 IF H<a9 TmEN PRINT PT 0 12 
CHR* CODE '5TR* Midi *128' 



50 



MICRO SISTEMAS. janeiro/85 




350 IF H > 9 THEN PRINT « T 0.12 I 
HR* (CODE 'STB* HI (2 *125 A” 0- 
ll.CHK* I COC E 5TP * M l 1 -125' 

360 LE^ R=0 

370 I p M-3 + INT iH 3 0 ’"mEn GO 

TO 220 

362 LET NAVsNAU* NAU 9 

336 GOSuE 1000 

390 SOTO 220 

400 LE T CA*PEEK P05 

405 IF CA*118 Then GOTO 460 

410 FOP N si TO 5 

420 POKE P05 CODE * 

430 =OKE P05 CODE E" 

440 NEXT N 
450 POKE P03 OP 
460 LE T NAV»NAV-1 
470 GOSUE 1000 

510 if nau <>0 then goto 250 

5^.5 F0P^N«1 TO 50 

518 IF INKEy S = THEN GOTO 515 

519 IF INi\E y |*"N" THEN GOTO 525 

520 LET NAU*S 

525 GOSUE 1000 . 

526 PRINT AT 20.6 

52 " GOTO 250 

529 BAND USP 16753 

F^O P RINT AT 10.2 :T N:1-,hlN;li»-l»I; 

AT 12.2 

540 IF M < =9 THEN PRINT CHR* (CO 

DE 5TP* M*123 i 

550 IF M >9 THEN PRINT ChP* iCOD 
E (STP* Hi 1 • ♦ 128 ) 4CHP * (CODE (5 
TP* H) (2.4125 

*= ” THEN GOTO 590 
600 IF INKEY S = 5" THEN GOTO 25 
610 I" INK.E f * = "N" THEN STOP 
620 GOTO 590 
1000 FOR N s 1 TO 5 

1010 PRINT AT 0,22 "NAVE3 “ AT 0 



- e 


p =1 


THEN 


LET H ,1 




B*2 


THEN 


* *1 




P*0 


THEN 


LET - *1 


* “ 


Pp3 


PEEK 


16395 *2 


♦7 


10 T 


-EN G 


OTC 5500 



1030 PRINT PT C 26 CHP* (CODE r 

P* NAU+128 

1040 PETyPN 

2000 Sfl'.E =E3GA-i 

2010 GOTO 6000 

5000 -E^ InIsPEE* 16395»25c- c Ef- 
16 3 9" -"09- =sli *~10* iP«2 *711- 
Ps0. 



5014 I 
5020 I 



5021 "OP L =20 TO 23 

5022 PRINT AT 21 .l *'• 

5023 =ANC USP 16723 

5024 NEXT l 

5025 LE T 1*1 

5026 POKE INI 123 

5030 "CP NslNl ”0 P05 STEP I 

5040 LET JsPEEi- N 

5050 COKE N n 

5060 BAND USB 16 "33 

50 30 COKE n J 

5090 nE>T n 

5100 "OP C*1 to 3 

5110 =OKE PC« k 

5120 POKE PCS n -123 

5130 NEXT = 

5140 COKE 17160 . k, 

5150 BAND US® 17182 

5160 LET SsCEE' 16 32 3 *25 3 ♦PEE* 1 

6829-33 

5162 FOB F s 1 TO 2 

5165 POKE 5k 

5166 BAND USB 16728 
516" POKE 5 123 

5163 LET 5,«-33 
5159 NEXT F 
51"0 LET 5*5423 

5172 "OP f , i TO 3 

5173 POKE 5 . 38 

5174 POKE 3 166 

5175 NEXT F 

51"6 "OP 0*1 TO 5 

SI - *? NEXT 0 _ 

5130 PRI NT AT 21,10 IB «T 2- 
20 "■■■" 

5190 I" R *0 THEN PRINT AT 21,15 



5510 PRINT A” 21. L. • 
5515 NEk T _ 

5520 _E” I=-i 
5520 GOTO 5026 

6000 BAND U5P 15752 

6001 PRINT A- 10,6; • 



PRINT AT 16 . 6 



FOP N*1 TO 30 

NEXT N 

PRINT A 
T 10 4 
12 4 "| 

AT 16 

I" INKE *= men •JU i w ew««. 
IF INK.Ev* ”4 ” OR INKEY* - "l" 
N GOTO 6020 

GOTO 3040*10*UAL INKEY * 

;_ET N2*25 
GOTO 25 
LET N2 *20 
GOTO 25 
_ET N2«15 
GOTO 25 
_ET N2*10 
GOTO 25 

lET 0*l42S*RND- 
FOP N * 1 TO 0 
PRINT AT 1 N . A* 

I LET POSA sP0SA4 1 
) NEXT N 
) POKE POSA, 128 
1 wET P05A.P05A433 
1 POKE POSA 166 
) CETUPN 
) FOR N*1 TO 40 

) PRINT AT 44144PND , 14294RND 

5 NEXT N 
5 RETURN 



5200 GOTO 232 

5500 fop l*12 TO 10 STEP -1 



Blocos Assembler 



3E 02 32 E9 41 09 3E 01 
32 E9 4 1 C9 2E 16 D4 22 
13 D1 00 00 00 00 00 IE 



ES B3 B4 
SO B7 AA 
30 B 3 A 6 
80 30 3C 
30 30 30 
30 30 30 
80 30 30 
80 80 80 
80 30 50 
80 80 80 
80 80 30 
80 30 80 
80 80 80 
80 30 30 
80 30 50 
S0 30 33 
80 30 00 
30 80 9D 
80 30 30 
30 33 33 
50 30 80 
S3 88 35 
30 80 80 
83 38 33 
83 83 S3 
38 83 33 
83 36 33 
88 38 33 
20 FD 10 
E3 C9 2A 
40 EB 01 
60 41 01 
60 41 3E 
20 00 ED 
C2 SB 41 
B0 3E 03 
20 00 ED 
C9 ED E0 
20 00 e: 

56 3F 56 
55 10 5" 

57 94 5" 
57 15 58 



99 53 00 02 2A E5 41 CD 

62 *1 36 SO 11 21 00 1 

3A E3 41 f* 21 23 2D K - 

24 23 20 7E 22 E6 41 CD 

3C 42 FE 80 20 0E 3E 00 

32 E9 41 32 ES 41 36 A5 



15955 


32 


31 


42 


3A 


30 


42 


3C 


32 


15964 


30 


42 


FE 


01 


20 


0" 


22 


so 


15972 


41 


3A 


31 


42 


C9. 


FE 


02 


20 


15930 


07 


22 


BE 


41 


3A 


1 1 


42 


02 


15935 


FE 


03 


20 


0" 


22 


00 


41 


3A 


15 995 


31 


42 


C9 


*E 


04 


20 


07 


22 


1"004 


C2 


4 1 


3A 


31 


42 


C 9 


FE 


05 


17012 


20 


07 


22 


C4 


41 


3A 


31 


42 


17020 


C9 


"E 


05 


20 


07 


22 


C6 


41 


itoss 


3A 


3 1 


42 


C9 


FE 


0" 


20 


07 


17036 


22 


C 3 


41 


3A 


31 


42 


C 9 


F* 


17044 


08 


20 


07 


22 


CA 


41 


3A 


31 


17052 


42 


0 9 


FE 


09 


20 


0' 


22 


CC 


1-060 


41 


3 A 


31 


42 


C9 


FE 


0A 


20 


17063 


07 


£2 


CE 


41 


3A 


31 


42 


C9 


17076 


FE 


0E 


20 


07 


22 


DO 


41 


3A 


1"034 


31 


42 


C9 


FE 


0C 


20 


07 


22 


1-092 


D2 


41 


3A 


31 


42 


C9 


CP 


OD 


1'100 


20 


07 


22 


D4 


41 


3A 


31 


42 


17105 


C9 


"E 


0E 


20 


0" 


22 


D6 


41 


1-116 


3A 


3 1 


42 


C 9 


FE 


0F 


20 


O' 


1"124 


22 


D 8 


41 


3A 


31 


42 


C 9 


FE 


1-132 


10 


20 


0" 


22 


DA 


41 


3A 


3 1 


17140 


42 


0 9 


F» 


11 


20 


07 


22 


DC 


17143 


41 


3® 


31 


42 


09 


22 


DE 


41 


1-155 


3A 


3 i 


42 


C9 


9F 


00 


00 


00 


17164 


00 


00 


00 


00 


00 


00 


00 


00 


171-2 


00 


00 


00 


18 











17182 


3A 


53 


41 


5’ 


3E 


F5 


32 


53 


1^190 


41 


2A 


DE 


41 


CD 


62 


41 


3* 


1-193 


00 


3A 


03 


43 


2A 


DC 


41 




1"205 


CD 


62 


41 


35 


30 


2A 


DA 


41 


17214 




OD 


62 


41 


36 


80 


2A 


D3 


17222 


41 




CD 


62 


41 


36 


80 


2A 


1-230 


D6 


41 


77 


CD 


62 


41 


36 


50 


1"236 


2A 


D4 


41 


77 


CD 


62 


41 


35 


17246 


30 


2A 


D2 


41 


77 


CD 


52 


41 


17254 


36 


50 


2A 


DO 


41 


77 


CD 


62 


1"262 


4 1 


35 


80 


2A 


CE 


4 1 


77 


CD 


1-2-0 


62 


41 


36 


80 


2A 


CC 


41 


77 


17273 


CD 


52 


41 


36 


30 


2A 


CA 


41 



36 30 2A 



17302 


C6 


41 


77 


CD 


62 


41 


36 


30 


17310 


2A 


C 4 


4 1 




CD 


6* 


41 


36 


1-313 


30 


2A 


cs 


41 


77 


CD 


62 


41 


17325 


36 


80 


2 A 


C0 


41 




CD 


€ c 


1"334 


41 


36 


30 


sH 


EE 


41 




CD 


1"342 


62 


4 1 


36 


30 


2H 


a. 


41 




1-350 


CD 


62 


41 


36 


30 


7A 


32 


53 


1735 3 


41 


C9 


IB 













TESBI INFORMATICA LTDA. 

SO PARA EMPRESARIOS 
MUITO INTELIGENTES... 



— A sua contabilidade atende a 
voce ou somente aos f iscais? 

— Voce tern um bom controle 
de contas a pagar e a receber? 

— A sua admimstragao de imo- 

veis e realmente eficiente? 
Na TESBI Informatica voce en- 
contra programas de contabili- 
dade CAP/CAR e Administra- 
gao de Imdveis voltados para 
voce, Gerente eficiente Todcs 
desenvolvidos em DBII ou Ba- 
sic. 

Cursos prSticos de dBase, Wor- 
dstar e Supercalc. 




Melhores Informacoes pelo 
tel.: 284 6949 c/Uege 



Av 28 de Setembro. 226 Lj 
110V Isabel 






Veja em quanto tempo voce e capaz de ordenar 
um tabu/eiro de letras, nos micros da linha Sinclair 



A, D, B... ordene as letras 



Roberto dos Santos Silva 



programa Ordem Letras Simula um antigo passatem- 
po conhecido nosso, em que o objetivo e colocar em 
ordem alfab^tica um pequeno tabuleiro de letras. 

0 programa 6 todo em BASIC, desenvolvido para 
equipamentos Sinclair, com 16 Kb de RAM. 

Apds o comando de execu 9 lo,o programa demora cerca de 
10 segundos, pois a sub-rotina de inicializa^ao, na linha 40, de- 
senha o tabuleiro, embaralha as letras e mostra algumas infor- 
ma 95 es sobre o jogo. 

A seguir, vejamos algumas dicas importantes: 

. o controle para movimentafSo sobre o tabuleiro e para tro- 
ca de posi?ao das letras 6 feito atrav^s das teclas 5, 6 , 7, 8 e 0, 
sendo portanto possivel usar o joystick para jogar; 

ap 6 s a sub-rotina de inicializa^o, e ap 6 s cada troca de posi- 
920 de uma determinada letra, o cursor estar 2 na posi 92 o em 
branco do tabuleiro (embora nio apare 9 a); 

. £ posstvel movimentar-se a vontade em todas as dire^Ces, 
mas s 6 se pode fazer 1 50 trocas de pos^Oes; 

. s 6 £ possivel mover uma posi 9 ao de cada vez; 

. ao ordenar todas as letras, o espa 90 em branco dever 2 estar 
situado na ultima posi 9 ao do tabuleiro; 

. se for dado algum comando impossivel de ser executado o 
cursor piscard; 

. para trocar uma letra de posi 92 o, deve-se posicionar 0 cur- 
sor na letra desejada e apertar o botlo de tiro do joystick (ou a 
tecla 0 ), sendo que esta letra deveri estar ao lado da posi 92 o 
em branco, ou imediatamente acima ou abaixo; 

. para mudar o numero de trocas possiveis de letras, altere as 
linhas 22, 32 e 74. 



Roberto dos Santos Silva cursa o 3? perfodo do curso de tecndlogo em 
processamento de dados nas Faculdades Reunidas Nuno Lisboa. Atuai- 
mente desenvolve programas para ED-281 e TK-85, tendo aprendido a 
iinguagem BASIC em livros e revistas especial izadas. 



Ordena Letras 



1 REM ORDENA LETRAS -R55 -08038 

4 

2 LET NP =0 

3 GOSUB 40 

4 LET S$ = INKEY$ 

5 IF 3$ = “ " THEN GOTO 4 

6 IF 8 $ = " O " AND ( (LI=L AND AE 

5 (K-CO) =2) OR (CQ=K AND ABS (L- 
LI) =2) ) THEN GOTO 15 

7 PRINT AT LI, CO; L$ ( (LI-4) /2 , 
(CO -10) /2) 

8 IF S$ = “5" AND CO > =14 THEN L 
ET CO =00 -2 

9 IF 5$=“5" AND LI <=10 THEN L 
ET L I =L I +2 

10 IF S$ = "7" AND LI > =8 THEN LE 
T L I =L I -2 

11 IF 5 $ = “ 8 " AND CO < =16 THEN L 
ET CO =00+2 

12 IF S$="D" THEN GOTO 24 

13 PRINT AT L I . CO ; CHR $ (CODE L 
$ ( (LJ-4) /2 , (CO -10) /2) +128) 

14 GOTO 4 

15 LET L$ ( (L-4) /2 . (K-10) /2) =L$ 
( (LI-4) /2, (CO-10) /2 ) 

16 LET L5 ( (LI-4) /2 , (CO-10) /2 • = 

17 PRINT AT LI, CO;" " 

18 PRINT AT L , K; L$ ( (L-4) /2 , (K- 
10 ) / 2 ) 

19 LET L =L I 

20 LET K =00 

21 LET P= P+1 




52 



MICRO SISTEMAS. >*n^ro/8S 




: IF P = 1 5 0 THEN GOTO 24 
; GOTO 4- 

■ CL5 

; FOR L = 1 TO 4 
. FOR K = 1 TO 3 

' IF L$(L,K + 1)=" " THEN GOTO 

; IF L$ (L,K) >L$ (L,K + 1) THEN G 
34 

I NEXT K 

■ IF L* (L,K) >L$ (L+ (L<4) ,4* (L> 

• 1 * ( L < 4 ) ) THEN GOTO 34 

. NEXT L 

! LET NP=NF'+ ( 150-P) *100 
! GOTO 3 

. PRINT RT 5,4;"* * * FIM DE 
) * * *" 

j PRINT _ RT 12 , 4; "PRRRCOJ^INU 

9BSB ' 

j LET 5 5= IN KEY $ 

' IF 5$="“ THEN GOTO 35 
i IF 5$ = “C" THEN RUN 

> STOP 
) FR5T 
. CLS 

> RRND 

5 DIM LS (4,4.) 

- DIM N (4,4.i 

> LET R 5 = “ RBCDEFGHI JKLMNO *' 



FOR L = 1 TO 4 
FOR K = 1 TO 4 
LET NEsINT < 
FOR J=1 TO 4 
FOR P=1 TO 4 
IF NE=N(.J,P) 
NEXT P 



(RND*16) 4 1 

4 

4 

) THEN GOTO 45 



NEXT J 

LET N (L , K) =NE 

LET LS (L,K) =R$ (NE TO NE) 

NEXT K 

NEXT L 

P R I NTJTMTjHHHi 
4 , 9 ; 

FOR L =5 TO 13 
PRINT RT L , 9 ; "! 



WWwMwm 



66 

4+L*2 

67 

10+K* 

65 

69 

70 

71 

72 
.• u 
74 

ENRR 
TROC 
ECLE 
T 19, 
1 ; - 
" ; RT 



NEXT L 
PRINT RT 
' 15,9; “i 
FOR L = 1 TO 4 
FOR K = 1 TO 4 

PRINT RT 4+L*2,10+K*2;L$(L, 
IF L$ (L , K) =" " THEN LET LI= 



IF L$ (L, 
2 

NEXT K 
NEXT L 
LET L =L I 
LET K =CO 
5 LOU 

PRINT RT 
PRINT RT 
RS LETRR 



$ (L,K) =“ 



THEN LET 



1,11; "PONTOS: 
16.1: " * TENTE 
COM" ; RT 17,3 



RS LETRRS COM" ; RT 17 
R 5 NO MRXIMO . " i RT IS 
(D) PRRR DESIST IP. 
3 ; " OURNDO TERMINRR." 
SE TERMINRR RNTES 



■ROCRS MRRCRRR PONTO 



75 LET P=0 

76 RETURN 



SEU FUTURO COMECA AQUI. 

















PRO GRAMAC AO OPERACAO DIGITACAO 

(COBOL & BASIC) 

PRO GRAMAC AO est rutur ada ( Para quern ja fez Cobol ) 

= (B) DataniEyErj= 



m£ier 

MEDINA 127 s/309 311 



NITEROI 

AURELINO LEAL 25 



MADUREIRA 

EDGAR ROMERO 244 s/ 301 



Um desafio para os usudrios de Sinclair que gostam de emoqao e suspense: tentar escapar 
de uma catHstrofe que estd destruindo o planeta 



O sobrevivente 



Sergio Roberto Gouveia 



O objetivo de quem joga 0 sobrevivente 6 procurar es- 
capar de um ternvel terremoto que esti abrindo cra- 
teras em toda a extensao da Terra. Se o jogador cair 
em um desses buracos provoca o flm do jogo. Ele 6 
bast ante interessante, podendo ser jogado individualmente ou 
com amigos, para ver quem sobrevive mais tempo, antes de ser 
tragado pelo ch2o, ou escapa ileso. 

Voce vai manobrar uma grade de 21 x 31 pontos, utilizando 
as teclas com setas (5, 6, 7 e 8) ou um joystick. Durante a fu- 
ga, cada vez que voce engolir um dos pontinhos da grade, acu- 
mulara dois pontos no escore. Passando por um local onde h4 
um X em vfdeo-reverso, perde um ponto. 0 transito pelos es- 
pa 90 s vazios nSo altera o escore. 

Durante o jogo 6 preciso ter muita atensfo, pois enquanto 
se estd caminhando o terremoto vai provocando novas crateras 
pela grade afora. Permanecendo parado ou se movimentando 
durante muito tempo em uma s 6 direfio, inevitavelmente voce 
serd tragado por um buraco. O jogo termina nesse momento ou 
quando o jogador alcan 9 ar a ultima coluna a direita da tela. 
Neste segundo caso, o sobrevivente ter i uma bonifica 9 So extra 
de 100 pontos adicionada ao seu escore. Esse escore aparecerd 
no topo da grade ao final de cada partida. Pressionando-se 
qualquer tecla a grade 6 recomposta, dando infcio a uma nova 
partida. 

0 grau de dificuldade do jogo pode ser ajustado, modifi- 
cando-se os valores inteiros (INT) da linha 1075. Quanto maior 
for o numero inteiro, mais fdcil serd o jogo, e vice-versa. Embo- 
ra preparado para rodar em equipamento com maior capadda- 
de de memdria, O sobrevivente pode ser digitado em aparelhos 
de 2 Kb, desde que se eliminem a tela de abertura, as telas de 
instru 9 des (linhas 1000 a 1054, inclusive) e mais as linhas 1087 
a 1094. 



Sdrgio Roberto Gouveia 4 gedgrafo. com Mestrado em Urbenismo, tra- 
balhe em Plenejamento Urbano a Regional no Go ver no de Santa Catari- 
na a tern um micro de Idgica Sinclair, que utilize como hobby. 



O Sobrevivente 



01REM SERGIO GOUUEIfl 
1000 PRINT *' 



34 



1001 


PRINT " 


1002 


PRINT *• 


1003 


PRINT “ 


1004 


PRINT *' 


1005 


PRINT - 


1006 


PRINT " 


1007 


PRINT “ 


.... 


• .fl. 


1003 


PRINT '* 


1009 


PRINT “ 




.fl. .B.fl. 


1010 


PRINT " 


B. .ffl.ffi. .BB. 


1011 


PRINT “ 






1012 


PRINT ■' 


B. . . 


•m. .a. 


1013 


PRINT ** 




•OS. .2. 


1014 


PRINT *' 


1015 


PRINT M 

B ..... . 


1016 
9 ■ • • 


PRINT " 

fl 



s. 0 
B. .B 
B. -B 
.gg. 



.m. b 

fl . . fl B 

B.....BB..B....B.B. 

-B. .B- BB . .SSS.B 
... fl. B. B. B. B. B. . 
2. B.B. .S3. S. B.fl. . . 
BE*. . .BB . gEg« . .fl. . . 
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1017 PR IN' 



1018 PRINT ” S. .S S. .2* 5 

.D..B"'D..3' 

1019 pri nt g. .g.&ass.g. 

ificLPRi^^ ^..2 2. 

. esa . . . ass ■ s • 



1021 PRINT 



1022 FOR T = 1 TO 50 

1023 NEXT T 

1024 FOR 5=0 TO 21 

1025 SCROLL 

1026 NEXT 5 

1027 FOR A = 1 TO 21 

1028 PRINT RT h, 0;CH R$ 3;RT fl ,31 
; C'HR$ 3 

1029 NEXT fi 

1030 FOR R =0 TO 31 

1031 PRINT RT 0;fl;CHR$ 3; RT 21, R 
;CHR$ 3 

1032 NEXT R 

1033 PRINT RT 1,5;" 



1034 PRINT RT 3,2; "USE R5 TECLRS 
COM SETR5 PRRR ” 

1035 PRINT RT -5,2; "SE MOUIMENTAR 
NR DIRECRO DE5E“ 

1036 PRINT RT 7,2;"JADfl. NRO FIO 
UE PRRRDO OU SE” 

1037 PRINT RT 9 , 2; "MOUIMENTANDO 
NUMR MESMR DIRE” 

1033 PRINT RT 1 1 , 2 ; ” CRO , PO IS UOC 
E PODERR CRIR NUM” 

1039 PRINT RT 13 . 2 ; " BURfiCO . 0 JO 
GO TERM INR RI OU" 

1040 PRINT RT 15 .2 ; "QUflNDO UOCE 
RT ING IP: R COLUNA" 

1041 PRINT RT 17,2; "31. NESTE 5E 
GUNDO CR50 , UOCE" 

1042 PRINT RT 19,2;"RINDR GRNHR 
UMR BONIFICRCRO" 

1043 FOR T = 1 TO 300 

1044 NEXT T 

1045 PRINT RT 3,2; "DE 100 PONTOS 
. 0 OEJETIUO DO” 

1046 PRINT RT 5,2;"J0G0 E RCUMUL 
RR 0 MRXIMO DE " 

1047 PRINT RT 7,2;"P0NT0S NO SCO 
RE.CRDR PONT INHO " 

1043 PRINT RT 9 , 2; "ENGOLIDO CONT 
A + 2 PONTOS E ” 

1049 PRINT RT 11,2; "CfiDR S ENGOL 
IDO RETIRR 1 PON-" 

1050 PRINT RT 13,2; "TO. 0 SEU SC 
ORE RPRRECERR RO" 

1051 PRINT RT 15 , 2 ; " F INRL DE CRD 

R PRPTIDR. " 

1052 PRINT RT 17,2.;" -!■!=■ 



1053 PRINT RT 19,2;"DIGITE RGORR 
OURLOUER TECLR " 

1054 PAUSE 4E4 

1055 LET X=10 

1056 LET Y = 1 

1057 LET T =0 
1053 DIM M (21,30) 

1059 LET 5 =T 

1060 FOR L =1 TO 21 

1061 PRINT RT L,0;“ 



1062 NEXT L 

1063 LET L = ( INKEY $ = " 6 " RND X<21) 
- ( INKEY $ ="7" RND X>1) 

1064 LET C= <INKEY$="3" RND Y<31) 
- <INKEY$=”5" RND Y>1) 



1065 PRINT RT X,Y;“ " 

1066 LET X =X+L 

1067 LET Y=Y+C 

1063 PRINT RT X,Y;"U" 

1069 IF Y >30 THEN GOTO 1036 

1070 LET S=S+M (X , Y) +2 

1071 LET M ( X , Y ) = -2 

1072 LET T =T - 1 

1073 IF NOT T THEN GOTO 1033 

1074 IF T >0 THEN GOTO 1063 

1075 LET T = INT ( RND *3+3) 

1076 LET H=X+T*L 

1077 IF H >21 THEN LET H=21 
107S IF H < 1 THEN LET H = 1 
1079 LET I=Y+T*C 

1030 IF 1(1 THEN LET 1=31 

1031 IF I >31 THEN LET 1=31 

1032 GOTO 1063 

1033 PRINT RT H,I;CHR$ 6; RT H,I, 
CHR $ 134; RT H,I;CHR$ 6;RT H,I;CH 
RS 134; RT H , I; CHR$ 139 

1034 LET M ( X , Y ) = - 3 

1035 IF H < > X OR I < >Y THEN GOTO 1 
063 

1036 PRINT RT O , 12; CHR$ 134; CHR $ 
168 ; CHR. $ 130; CHR$ 183; CHR$ 170; 

CHR $ 142; 5+ (100 AND Y>30)' 

1037 PRINT RT 21 . 2 ; "OURLOUER TEC 
Lfl PRRR NOUO JOGO" 

1083 PAUSE 4E4 
1039 FOR R = 12 TO 21 

1090 PRINT RT 0 , A ; CHR $ 3; 

1091 NEXT R 

1092 GOTO 1055 

1093 SAUE "SOB” 

1094 PUN 



NUNCA £ TARDE PARA LER 

./Micro 



Se voce 
nao adquiriu 
MICRO 
SISTEMAS 
na data certa, 
nos the damos 
uma segunda 
chance! 






• Seu pedido pode ser feito 

por carta, indicando 
quais os numeros 
atrasados que vocl quer. 

• Acrescente a este um cheque 
cruzado, nominal & ATI 
Editora Ltda., no valor 
correspondents ao seu 
pedido. 

• E nao se esquepa de incluir 

o seu endere?o para 
que n6s possamos 
fazer a remessa. 



Codffcn 

fluo Olivoiro Dio*. I S3 — Jordim Poolitto — Mo Pow*o SP 
- CEP 01 433 - Tolt : (OU ) 853 3900 8S3-77M • 861 5666 

Aw. Protidont* Wilton. I*S — grupo 1210 — C#n»ro — *lo 
d* Jonoiro/PJ - CEP 20030 - T**t : (021) 2*2 523* 2*2- 
*437 • 2*2 6306 
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Jogos, jogos e mais jogos. Talvez esse seja um dos mais serios assuntos da 
microinformatica na atualidade. Para comprovar essa teoria, basta consultar 
qualquer tabela de software e se tera uma ideia exata do volume de programas 
de lazer disponiveis no mercado. Numa area onde nao existem preconceitos 
de linha ou porte de equipamento, era de se esperar que o jogo assumisse um 
papel de importancia quase fundamental, afinal, quern resiste a tenta^ao de 
rodar o Aztec ou o Assault quando o patrao da uma saidinha, ou enquanto a 
esposa esta vendo a novela das oito? 

Quern ja presenciou um teste ou demonstra^ao de um equipamento sabe 
que, no final e apos rodar diversos utilitarios e aplicativos para as mais varia- 
das fun^oes, o tecnico, num ritual de comprova^ao da eficiencia da maquina, 
manda ver o seu jogo predileto. 

Se esse estado de coisas e bom ou ruim para o desenvolvimento da micro- 
informatica nacional nao importa; o que conta e oentretenimento, pois lazer 
e uma atividade essencial ao ser humano. E e dessa forma que todos os progra- 
mas de jogos devem ser encarados: lazer. Puro e simples lazer. Extrapolar dai 
e apostar numa discussao sem perspectivas de conclusao. 
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por urn lado existe todo um ques- 
tionamento da importancia dos jogos, 
por outro e dificil estabelecer uma or- 
dem qualitativa nos produtos que jd 
existem. Podemos, no entanto, assumir 
que para um jogo ser considerado bom d 
necessdrio que a sua estrutura bSsica seja 
calcada numa ideia original. 

Poderfamos citar diversos exemplos, 
por6m o mais significativo 6 o xadrez 
que, apesar de ter alguns seculos de exis- 
tence, continua a causar grande suces- 
so entre seus adeptos. A estrutura do 
jogo permanece, desde a sua criasSo atd 
hoje, praticamente inalterada e talvez 
nunca sofra modifica^Oes, dado que ela 
6 a sfntese de tres elementos fundamen- 
tais: atualidade, abrangencia e simpli- 
cidade. 

A atualidade refere-se ao grau de con- 
temporaneidade que o jogo assume num 
determinado espa^o de tempo. Alguns 
jogos famosos atualmente, com certe- 
za perderSo sua for^a atrativa na medida 
em que se distanciarem do fato gerador 
ou inspirador. 

Um caso tfpico 6 o jogo WAR que, 
para ser plenamente satisfat6rio, exige 
dos jogadores, pelo menos, uma vaga 
ideia do que foi e da importancia da II 
GUERRA MUNDIAL. Nesse caso, o as- 
sunto confronto militar 6 sempre atual, 
por6m a sua localiza^So temporal perde 
importSncia na medida em que o tem- 
po distancia-nos do fato em si. 0 que se 
pode fazer, num caso desses 6 trazer a 
mecSnica do jogo para um conflito mais 
pr6ximo da atualidade. 

A abrangencia i um aspecto de suma 
importSncia dentro da universalidade de 
um jogo. Sistemas que tern como pre- 
requisites para serem manipulados, um 
elevado grau de QI ou um repertbrio de 
reflexos condicionados altamente desen- 
volvidos, estSo condenados a serem res- 
tritivos por natureza e defm^So. £ es- 
sencial que um jogo permita o entrete- 




3 




Os diversos tipos de space invaders: (l)o conhecido e famoso 
GALAXY IN VASIONfTRS 80), da genial dupla Bill Hogue e 
Jeff Konyu, para a ndo menos famosa Big Five; (2) o irmdo do 
Galaxy, mas igualmente popular COSMIC FIGHTER (TRS 80), da 
mesma equipe anterior; (3) o SPACE INTRUDERS (TRS 80), de 
Doug Kennedy para a Adventure Int.;(4) o STAR BLAZERS 
(TRS 80), da Q. Products; (5) o SPACE INVADERS (Sinclair), 
da Ritas do Brasil, um raro exemplar de produto nacional. 



nimento do mais inocente iniciante ao 
mais completo profi-expertjogador. Por 
sinal, essa e uma caracterfstica muito 
pouco observada nos jogos eletronicos 
de movimento, onde o infeliz jogador 
deve manejar pelo menos uns 10 coman- 
dos ao mesmo tempo. 

A simplicidade e o terceiro e mais im- 
portante fator ao qual um bom jogo de- 



ve obedecer. Isso se deve, aUialmente, 
ao fato de haver uma grande quantida- 
de e diversidade de jogos dispomveis, 
obrigando os amantes dessa atividade a 
um dificil processo de sele 9 So. De fato, 
pode-se escolher entre as mais diversas 
situates e, certamente, as que sSo mais 
assimilSveis detSm uma preferencia 
maior. Jogos que obrigam o usuSrio a® 
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OS JOGOS COMERCIAIS 



decorar listas de comandos, regras e pos- 
sibilidades acabani causando o cansa^o 
e desinteresse antes mesmo do jogador 
come^ar a tirar algum divertimento 
deles. 

Mas seriam apenas esses os elemen- 
tos que caracterizariam um bom jogo? 
A resposta e um sonoro NAO. 

Existem jogos que obedecem rigoro- 
samente a esses requisitos e, no entan- 
to, n£o despertam o menor interesse. 
Por outro lado, existem algumas aber- 
rates que fogem a qualquer regra e, 
ainda assim, conseguem a adesSo de inu- 
meros entusiastas. Por trAs disso estaria 
um elemento nffo codificdcel em regras 
ou preceitos, e que poderiamos tradu- 
zir por a alma do jogo. Essa alma po- 
deria ser identificada nas infinitas possi- 
bilidades do xadrez; no charme do 
monstrinho Pac Man;na sensa^ffo de po- 
der do WAR; na simplicidade do jogo da 
Velha, etc. 



A EVOLUgAO DAS MAQUINAS 
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Os penetrators da linha 
TRS 80: (6) o original 
PENETRATOR, de 
PHILIP MITCHELL, para 
a Beam: (7) o SEA 
DRAGON, um penetrator 
em baixo d’agua, da dupla 
Wayne Westmoreland e 
Terry Gilman, para a 
Adventure Int.; (8) o 
ELIMINA TOR, da mesma 
equipe anterior. 



A microcomputa^So de lazer £ um 
dos ramos da Informdtica que tern so- 



Para jogar: os acessorios 



Tjm termos de acessorios para jogos em microcompu - 
£Z tadores, os mais u tilt ados sdo sem diivida os joysticks 
e os paddles. Ambos tern a mesma fungao: possibilitar o 
movimento, controlando o jogo e dispensando o uso do 
teclado da mdquina. O tec lado, quando usado para esse 
fim acaba sofrendo um desgaste natural quepode vira da- 
nificar as teclas. Os joysticks sdo compostos por uma ala- 
vanca que determina a diregdo do objeto que estd sendo 
controiado e um botdo para disparo, para os jogos que dis- 
poem deste tipo de artificio. Jd nos paddles, ao inves da 
alavanca existe um botdo girador com o mesmo fim. 

Para os micros da linha Sinclair, podem ser encontra- 
dos nas lojas um joystick da Microdigital, fabricante dos 
micros TK 83 e 85, que custa Cr$ 1 9 mil e 393 (na Corn- 
put ique S.P.); o joystick da Greika, que custa Cr$ 25 mil 
e 909 (Computique S.P.); e um terceiro modelo de fabri- 
cagdo da Plancontrol que custa Cr$ 40 mil (I mares S.P.). 



A Plancontrol fabrica tambem paddle e joystick para mi- 
cros da linha Apple, cujos pregos variam entre Cr$ 60 mil 
e CrS 76 mil, nas lojas de Sdo Paulo. E para o micro 
CP-500 sdo encontrados um joystick da prdpria Proldgica, 
fabricante do equipamento, e que custa CrS 69 mil, 
(Imares S.P. ); e pelo mesmo prego existe um outro mode- 
lo de joystick de fabricagdo da Corsario. 

Um outro acessorio que quando u tilt ado para jogos 
implementa as figuras que aparecem na tela e a utilta- 
gdo de alta resolugdo grafica. Nos equipamentos voltados 
para uso profissional, como os da linha Apple, por exem- 
plo, esse recurso jd vem embutido na mdquina. Mas o 
mesmo ndo acontece nos micros pessoais da linha Sin- 
clair, o que levou alguns particulares a desenvolverem 
placas de alta resolugdo para micros dessa linha. Uma des- 
sas placas foi desenvolvida por Paulo Roberto V. Pereira e 
Neuveri Moog, e foi testa da e analisada pelo CPD de 
MICRO SISTEMAS (vide MS 37pdg. 16). 
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Saiba porque oCirandao 
se ligou tanto 
no Modem UP-1275 VTX 

da Parks. 4 » 0 , 












■ is. 










O Modem UP-1275 VTX da Parks e o 
modem homologado pela Telebras. Depois de 
todos os testes de qualidade realizados pela 
empresa, ele mostrou que e o mais duravel e de 
maior resistencia. 

O Modem UP-1275 VTX da Parks e a 
maneira mais simples, rapida e duravel de voce 
ligar o seu microcomputador ao Servi^o 
Cirandao e Videotexto. Basta uma linha 
telefonica comum para completar a ligagao e 
ter ao seu alcance as mais diversas informagdes 
de interesse domestico, empresarial e 
profissional. 



E um aparelho de pequenas dimensoes 
(15 x 25cm), peso reduzido e de facil instalagao. 
Recebe sinais em 1200 bps e transmite a 1200 ou 
75 bps. Alem de tudo, tern alta durabilidade e 
faz voce ficar na linha por muito mais tempo e 
tern muito mais facilidade de reposigao de 
pe^as. 

Receba o Servigo 

Cirandao ou Videotexto em 
sua casa, empresa, 
consultorio ou escritorio. 

O Modem UP-1275 VTX 
da Parks da o acesso. v 



PARKS 




Main/: Porto Alegre - RS - Av. Parana. 2335 -Fone (0512) 42-5500, Telex (051) 1043 • Kiliaiv Sao Paulo Fbne (011) 572-7171. Telex (011) 23-141 • Curitiba 
Fone (041) 232-1814. Telex (041) 5406 • Rio de Janeiro Fone (021) 240-7443, Telex (021) 33-621 • Recife Fone (081) 325-2123, Telex (081) 4248 • Representantes: 
Belo Horizonte Fone (031) 226-5722 • Brasilia; Fone (061) 272-1825 • Blumenau Fone (0473) 22-6248 • Campo Grande Fone (067) 383-5331 • Florianopolis; 
Fone (0482) 22-1525 • Cuiaba:Fone (065) 321-5020 • Uberlandia Fbne (034) 234-1600 • SaKador Fbne (071) 249-9744. 
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CURSOS DE APiRFEipOAMINTO 



CURSO DE ELETRONICA DIGITAL 



Comece uma nova fase na sua vida profissional. 

Os CURSOS CEDM levam ate voc6 o mais moderno ensino 
tecnico programado e desenvolvido no Pafs. 



Sao mais de 140 apostilas com mformacdes completas e sempre 
atualizadas Tudo sobre os mais revolucionirio CHIPS E voce 
recebe. alem de uma solida formac3o teorica, KITS elaborados 
para o seu desenvolvimento pr4tico. Garanta agora o seu fuiuro 



CURSOIX 

ELETTtONtCA E AUDIO 



M4todos novos e iniditos de ensino garantem um aprendizado 
pratico muito melhor. Em cada nova licflo. apostilas ilustradas 
ensmam tudo sobre Amplificadores, Caixas Acusticas. Equalizadores. 
Toca-discos, Sintonizadores AM/FM, Gravadores e Toca-Fitas, Capsulas 
e Fonocaptadores. Microfones, Sonorizapao. Instrumentacao de Medidas 
em Audio. T4cnicas de Gravacao e tambirn de ReparacSo em Audio 




CURSO DE 

PROGRAMACAO EM BASK 



Este CURSO. especiaimente programado. oferece os 
fundamentos de Lmguagem de ProgramacSo que domma o universo 
dos microcomputadores. DinSmico e abrangente. ensina desde o BASIC 
b4sico at4 o BASIC mais avancado, inclui'ndo nocoes b&icas sobre 
Manipulacao de Arquivos. T4cnicas de Programacao. Sistemas de 
Processamento de Dados. Teleprocessamento. Multiprogramacao e 
T4cmcas em Lmguagem de Maquma. que proporcionam um grande 
conhecimento em toda a area de Processamento de Dados 



CEDM 1 • KIT de Ferramentas. CEDM 2 - KIT Fonte de AlimentacJo 
♦ 15 15/1A CEDM 3 • KIT Placa Experimental 
CEDM 4 - KIT de Componentes. CEDM 5 • KIT Pr4 amplificador 
Estfereo CEDM 6 KIT Amphlicador E stereo 40w. 



Voce mesmo pode desenvolver um ritmo prbprio de estudo. A lin- 
guagem simplificada dos CURSOS CEDM permite aprendizado f4cil. E 
para esclarecer qualquer duvida. o CEDM coloca 4 sua disposigfo uma 
equips de professores sempre muito bem acessorada. AI4m disso, voc4 
recebe KITS preparados para os seus exercfcios pr4ticos. 

Agil, moderno e perfeitamente adequado 4 nossa realidade, os CUR- 
SOS CEDM por correspondence garantem condiqOes ideais para o seu 
aperfei^oamento profissional. 




ACV 



GRATIS 



Voc§ tambem pode ganhar um MICROCOMPUTADOR. 

Telefone (0432) 23-9674 ou coloque hoje 
mesmo no Correio o cupom CEDM. 

Em poucos dies vocfi recebe nossos catilogos de apresentapao. 



KIT CEDM Z80 
BASIC Cientlf ico. 

KIT CEDM Z80 
BASIC S.mples 
Gabarito de Fluxograma 
E-4. KIT CEDM SOFTWARE 
Fitas Cassete com Programas. 




rPFiM Avemda Sao Paulo. 718 - Fone (0432) 23-9674. 

I CAIXA POSTAL 1642 CEP 86100 Londnna - PR 
CURSO DE APERFEIQOAMENTO POR CORRESPONDENCE 

Solicito o mais r4pido possivel Informac&es sem compromisso sobre o 
CURSO de 

Nome 

Rua 

Cidade 

Bairro CEP 

MS 








frido uma crescente especializa^So por 
parte de seus segmentos de hardware e 
software. 0 universo dos jogos eletro- 
nicos experimentou, nesses dois ultimos 
anos, um avan$o tecnoldgico bastante 
significativo, e isto devemos, principal- 
mente, ao volume de equipamentos co- 
mercializados e & tendencia natural de 
massifica^So do lazer eletronico. 

Mas esse crescimento nffo decone 
apenas do prazer implfcito na ativida- 
de, visto que o interesse na drea, da par- 
te dos produtores, extrapola o lazer. De 
fato, deve-se creditar aos jogos uma im- 
portance capital na viabiliza^So de uma 
industria nascente, pelo numero de pro- 
dutos comercializados. 

A discussffo da ordem cronoldgica de 
surgimento dos micros e dos jogos ele- 
trdnicos assemelha-se d questffo do ovo 
e da galinha, pordm o nascimento de 
ambos pode ser situado nos anos 70, 
quando diversas pessoas se reuniam em 
grupos e clubes, por todo territdrio nor- 
te-americano, para a troca de iddias e a 
constru 5 ffo de micros caseiros. 0 que es- 
sas pessoas pretendiam com esses equi- 
pamentos pode ser questionado, mas 
certamente havia o componente “jogos” 
presente entre eles. 

Desses tempos herdicos atd os dias de 
hoje, muita coisa aconteceu e o nivel 
tecnoldgico atingido foi extremamente 
importante para a cria^do de produtos 
cada vez mais sofisticados. Na realida- 
de, a evolu^do das maquinas seguiu pa- 
ralela a uma evolui^o no prdprio con- 
ceito de jogo eletronico, ao ponto de 
hoje jd existirem alguns tipos de jogos 
somente vidveis por meio e interferen- 
cia do computador. 

Os primeiros micros, precursores des- 
sa atividade, ndo possui'am recursosgrd- 
ficos e de anima^o, o que obrigava os 
criadores de jogos a compensar a falta 
do visual com uma criatividade cada vez 
mais restritiva e seletiva. Sdo dessa dpo- 
ca os primeiros jogos de xadrez; forca; 
senha; velha; adivinhe o numero; loto 
etc. Com o advento dos equipamentos 





£ 
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Diversos jogos tentam um 
estilo diferente dos jd 
conceituados e famosos: 
(9) uma aventura do tipo 
Indiana Jones no ASTEC 
(Apple); (10) uma cidade 
em perigo nos FUNG OS 
MUT ANTES (Sinclair), 
adaptor ao da Cibeme; (11 ) 
o papa da animagao grdfica, 
Leo Christopherson, em 
WALKYR1E (TRS 80) 
para a A OS; (12) o mesmo 
Leo no simpatico, 
inteligente e irreverenie 
ANDROID NIM (TRS 80); 
(13) o FLIPPER (TRS 80), 
da Southern Cross, um 
jliperama quase real; (14) 
o ARMOURED PA TROL 
(TRS 80), de Wayne 
Westmoreland e Terry 
Gilman para a Adventure 
Int. 




* 
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OS JOG OS COMERCIAIS 




15 16 



Do is exemplos de frogs: (15) CHICKEN (TRS 80) 
um frog onde o sapo e uma galinha, de Weaver Jr 
para a Soft Sector; (16) adaptafdo do FROGGER 
(Sinclair) pela Multisoft. 



Apple, TRS-80 e Sinclair, os jogos ga- 
nharam em qualidade e diversidade, 
pois esses micros jd incorporavam al- 
guns recursos extras como caracteres 
grdficos, alta resolu^o. cor e som. 

Essa talvez tenha sido a ultima fase 
“amadora” dos jogos eletronicos, visto 
que hoje j9 existe uma especializa^So 
no hardware e principalmente nas es- 
pecifica9<5es dos micros. Os anos 82/83 
marcaram o surgimento de mdquinas 
voltadas para o lazer eletrdnico e que 
atendem especificamente a uma classe 
de usuirios muito mais interessada em 
divertimento do que em computa99o 
propriamente dita. 

S9o equipamentos simples, pequenos, 
com uma capacidade de armazenamento 
real, sob certos aspectos, razodvel (entre 
8 e 32 Kb), pordm com uma programa- 
990 muito avan9ada para os padrOes 
Apple/TRS/Sinclair. 0 aperfei9oamento 
de recursos como som, cor e, principal- 
mente, uma melhor performance da 
imagem obtida nos televisores comuns, 
fazem desses micros as vedetes da popu- 
lariza99o do computador. 

Nessa faixa encontraremos os mais 
criativos micros da atualidade, ope ran do 
um BASIC completamente diferente do 
BASIC standard da Microsoft. De fato, 
a implementa99o de comandos como 
COLOUR, DISPLAY, SCREEN, TONE, 



SHAPE, MUSIC, NOISE, VOLUME, 
CPOS, FIXED, PAPER, INK, BORDER, 
OVER, TIME, CLD, WAIT etc. j i os 
diferenciam dos seus parentes maiores. 

Mas as diferen9as n9o se evidenciam 
apenas na linguagem de alto nivel. Al- 
guns incorporam novidades como a re- 
defini99o de caracteres, alta e baixa re- 
solu99o na mesma tela, sprite (defini- 
99 o de pianos com prioridade de impres- 
s9o), sistemas de armazenamento de 
programas em micro-drives, etc. Existe 
at£ o caso de um micro, o Jupiter ACE, 
que optou pelo FORTH ao BASIC, j i 
que esta 6 uma linguagem mais adequa- 
da 9 cria99o de jogos. 

A prdpria opera99o dos micros so- 
freu uma evolu99o significativa e o ato 
de programar, ou apenas digitar um pro- 
grama, ganhou em seguran9a e rapidez. 
Nota-se uma tendencia cada vez maior 
pelo sistema de tecla/fun99o, onde o 
operador n9o prccisa digitar o coman- 
do todo mas apenas uma tecla. Alem 
disso, a crftica de sintaxe ao se digitar 
uma linha evita que o micro aceite li- 
nhas com erros primdrios de digita99o. 
A edi99o tamWm foi motivo de um me- 
lhoramento na sua funcionalidade, visto 
que essa opera99o e bastante solicitada 
nessa faixa de equipamentos. 

Todas essas caractensticas refor9am 
o conteito operacional proposto pelo j9 



lenddrio Sir Clive Sinclair, no seu famo- 
so micro ZX81. £ tambdm o prdprio 
Sinclair quern mais tern proporcionado 
mostras de inventividade nos seus mi- 
cros SPECTRUM e, atualmente, no 
2068. Aldm desses, podemos destacar 
alguns outros micros como o LYNX. 
ORIC 1, COMX 35, VIC20, COMMO- 
DORE 64, COLOUR GENIE, BBC etc. 



A PRODUCAO DE SOFTWARE 



Criar um programa original para um 
jogo n9o e uma das tarefas mais sim- 
ples na arte da computa99o de lazer. 
Na verdade, s9o muito poucos aqueles 
que conseguem resultados pelo menos 
satisfatdrios, e a tendencia e' cada vez 
mais isso ficar restrito a grupos, ou 
software-houses. 0 motivo e bastante 
simples, pois um jogo, para ser bem acei- 
to, deve possuir compativeis em quase to- 
das as linhas de equipamentos, e isso s6 
e possivel,em teoria, se dispusermos dos 
equipamentos e das informa90es tecni- 
cas necessarias. 

Essa tendencia, jd bastante difundida 
nos paises mais adiantados, ainda esta 
em estdgio embriondrio aqui no Brasil, 
e os motivos v9o desde a falta de estru- 
tura de investimento das prdprias soft- 
ware-houses, ate a total falta de apoio 
dos fabricates de hardware. 0 maior 
reflexo disso tern sido um descomunal 
atraso tecnoldgico, visto que a produ- 
99o nacional de software original 6 
praticamente zero. 0 que existe i um es- 
for90 de tradu99o e adapta99o de soft- 
ware importado, quando n9o a pura e 
simples c6pia. 

Mas a disponibilidade tecnica ou fi- 
nanceira n9o e o unico entrave inerente 
a esse segmento da microcomputa99o. 
A criatividade tern sido, sob certos as- 
pectos, uma barreira muito mais violen- 
ta que as estruturas convencionais. 0 
maior reflexo disso 6 a pequena dife- 
rencia99o entre estilos de jogos, os quais 
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Criar jogos ndo e apenas conhecer bem uma linguagem 
de programaq&o. £ preciso ter tambem algum senso 
artistico e muita imaginafdo para elaborar as aberturas 
e apresen taffies dos programas. 



podem ser classificados como Pac Mans; 
Space Invaders; Penetrators; Star Treks; 
Froggs; Kongs; Flight Simulators; Ad- 
ventures e os convencionais Xadrez, 
GamSo, Damas etc. 

Nada tern surgido de novo, nos ul- 
timos anos, e que nSo perten^a a um 
desses estilos obrigatoriamentc. Talvez 
isso decorra de uma postura ainda pre- 
conceituosa em rela^o ao jogo, ou mais 
especificamente ao lazer via computa- 
dor. Os profissionais mais gabaritados, 



com forma9So academica inclusive, ain- 
da se sentem inibidos a produzir um tra- 
balho mais completo nesse universo tSo 
complexo e apaixonante. 



O QUE ESPERAR 
PARA O FUTURO? 



A julgar pela situa^o atual, o futuro 
do lazer em computadores, no Brasil, 
ainda vai demorar muito para estourar. 



como em outros paises. Se n£o houver 
uma integrafffo maior entre as software- 
houses e os fabricates, dificilmente 
haverd uma produ9So nacional de peso 
e qu alidade. 

A polftica de produzir equipamen- 
tos sem compatibilidade e sem base de 
software ainda e muito forte entre os 
industrial nativos. Chegamos mesmo ao 
ponto de ter no mercado algumas das 
pe9as mais esdnixulas jamais vistas, po- 
re'm a sua propria inconsistency acaba 
provocando seu desaparecimento. Mes- 
mo assim, a experiencia n£o tern servi- 
do a todos, e ainda padecemos do mi- 
cro compatfvel apenas com ele mesmo. 

Mesmo nos Estados Unidos, onde o 
consumo da Informdtica estd muito 
mais avan9ado, nenhum equipamento 
chega ao mercado sem ser precedido por 
uma avalanche de programas oriundos 
dos produtores de software. Aqui no 
Brasil dd-se exatamente o oposto, e 
mesmo apos meses do lan9amento, 
muitos micros s 3 o conhecidos apenas 
pelos seus “criadores”. Essa fobia de 
ser conhecido e um dos maiores proble- 
mas causados ao consumidor, e estra- 
nhamente contr£rio a qualquer regra de 
comercializa 93 o de produto. 

Se esse estado de coisas nSo sofrer 
uma altera9ffo drdstica, em pouco tem- 
po teremos equipamentos que s 6 fa- 
rilo imprimir o nome do seu proprie- 
tdrio na tela de video infinitas vezes. 
Teremos entSo perdido uma das maiores 
oportunidades de consolida9*To da mi- 
croin formdtica, pois dificilmente havers 
muita gente a investir pequenas fortu- 
nas num narcisismo sem sentido. ■ 

m 



Renato Degiovani rf Desenhista Industrial a 
Programador Visual, formado pela Pontiff- 
cia Universidade Catdlica do Rio da Janeiro. 
Possui tarn Mm cursos de Fotojornalismo, 
Fotogravura, ProdugSo Grifica a Fotografia 
Ticnica. F o Dire tor Ticnico de Micro Siste- 
mas a usu&rio da microcomputadores na sua 
Area profissional. F tambdm um entusiasta do 
uso do computador como la nr alternativo. 
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• Recebemos em nossa reda^o a carta do 
colaborador Marcel G. de Albuquerque, au- 
tor dos programas Crania e Saldrios, publi- 
cados em MS n? 38, pigs. 34 e 58, respec- 
tivamente, em que este faz algumas cone- 
90es e sugestOes para melhorar os progra- 
mas citados. No program a Granja devem ser 
feitas as seguintes alteracdes: 

- em vez de GOSUB 1800 na linha 1050, o 
mais correto e GOTO 1800, e em fun^ao 
disto, deve-se alterar a linha 1800 para: 
1800 REM INSTRUgOES, 

- coloque ponto e virgula no final da linha 
1230, pois a falta deste carater provoca con- 
lusao na tela; 

- a linha. '3020 deve ser trocada; ao inves 
de GOSUB 2040. o mais correto i GOTO 
2040. 

No programa Saldrios. sio estas as modi- 
fica^Ces: 

- para uma melhor estetica na linha 1 , e 
necessano a colocacffo de cinco espa^os en- 
tre as palavras CONFORME e EVOLLK^AO; 

- no terceiro paragrafo ap6s o entreti'tulo 
SUGESTOES, deve-se trocar o final da linha 
550. que, em vez de 400 devera ser 100. 
Alias, com o fim dos centavos nSo c mais ne- 
cessario multiplicar por 100, tomar a parte 
inteira e dividir por 100. Assim sendo.seria 
melhor corrigir as 1 in has que utilizam este 
mitodo (530 e 550) para: 

530 PRINT, , TAB 11;“CR$ ”;INT(SAL) 
550 PRINT,, TAB 11;“CRJ TOTAL 

• Em MS n? 38, pig. 73, o programa MU- 
DA NOME/DATA teve parte de seu texto 
omitido, embora as duas listagens publicadas 
(Nome/Data e Numeros Hexadecimais) este- 
jam corretas. Para sanar este erro, publica- 
mos agora somente a reda^So correta de for- 
ma integral : 

“O artigo DISKZAP para mudar (publica- 
do em MS n? 25, pag. 36) mostrou a possi- 
bilidade de modificar o conteudo de um dis- 
quete (e tambem de criar monstrinhos) para 
quern possuisse o DOSPLUS 3.4, o que nJo 
era o meu caso. Mesmo assim nSo desisti. e 
com a publicacSo do artigo Alim do BASIC, 
Assembler, DOS e outros mistirios (MS n? 
32, pag. 80) consegui fazer uma rotina em 
BASIC - utilizando parte do programa da 
listagem 2 (pag. 83): Muda nome/data dis- 
que res - e finalmente tive a oportunidade 
de modificar o conteudo do disquete (e 
fazer o monstrinho mudar tambem), simu- 
lando um DISKZAP no meu DOS500. 

Para quern, como eu, nio possui o DOS- 
PLUS 3.4, o procedimento i o seguinte: co- 
loque um disquete com o DOS500 no drive 
0 e entre com o programa em BASIC. Ao 
iniciar o programa, o computador ficara es- 
perando ate que se entre com um dado (70 
INPUT AS...). Deve-se entio digitar os nu- 
meros hexadecimais um pof um, logo apos 
terminar o programa de RESET. Se tudo for 
digitado corretamente, o monstrinho sorrira. 
Uma observa^io final important e: com este 
programa pode-se criar qualquer desenho, 
mas 6 necessario respeitar o numero de ca- 
racteres e os hexadecimais 01, 2C, F0, 51 e 
OD”. 

• Em MS n9 38, pag. 25, no programa 

Cofre, a trava do referiao programa foi pu- 
blicado como PULZ. O correto no entanto 
e considerar todos os PULZ do programa 
Cofre como , ou seja.em caracteres 

grificos invertidos. 

• Em MS n? 38, pig. 46, no programa Te- 
clado musical, ocorreu um erro na listagem 
em BASIC, na linha 40, onde, erradamente, 
foi impresso um sinal de adkfJo em lugar da 
virgub. O correto 6: 40 .... 47,3,169,76 ... 
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CONFIG 



FABRICANTE 



NOME DO JOGO 



Aventi 



iireias I. tiia 



Velho Qeste. Iita 



Fantastica. fita 



ismo. Iila 



0.44 ORTN 



Xadrez fita 



Microsotl 



Kristian 



Microsoft 



licrosoft 



Micro soft 



Microsoft 



Kristian 



Taxman, fita 



0.82 e 1.93 ORTN 



Xadrez. fita ou disquete 



PREQO 

ORTN 



LINHA 



TABELA DEJOGOS 

- 
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B 3V- TO TI !. H!lt: 



1,5 ORTN 



2.5 ORTN 

1.5 ORTN 



Xadrez. disquete 



Intersoft 



1.5 ORTN 



Um. Iila 



Xadrez, fita 



0.78 ORTN 



LINHA 



NOME DO JOGO 



PREQO 

ORTN 



Software-houses consultadas: Inter Soft — Av. Brigadeiro Faria Lima. 1462, cj. 2A, S3o 
Paulo, tel.: (011)212-8971 e211-0371; JVA Microcomputadores — Av. Grapa Aranha, 
145, sobrlj. 01, Rio de Janeiro, tel.: (021)262-6968; Kristian Eletrdnica Ltda. — Rua Gonza 
ga Bastos, 112, CEP: 20541 - Rio de Janeiro, tel. : (021) 268-8249; Mag Soft - Rua Jos6 Bran- 
d3o, 175, Jardim Pirituba, S3o Paulo, tel.: (011)864-8101; Micro's Assessoriaem Processa 
mento de Dados — Av. Indico, 71, S3o Bernardo do Campo, S3o Paulo, tel.: (011)448-6234; 
Monolith 2001 - Rua Augusta, 1371, si. 7, S3o Paulo, tel.: (011) 288-4939, Multisoft Infor- 
matics - Av. Angelica, 2318, S3o Paulo, tel.: (011)255-0366, Playsoft - Rua D. Germaine 
Burchard, 511, S3o Paulo, tel.: (011) 62-3600; Produtos BBS, Revenda Informax — Av. 
Brigadeiro Faria Lima, 1390, S3o Paulo, tel.: (011) 813-6407. 

Abreviatura utilizada: config. — configuragao. 



Os mais 
vendidos 



M ICRO SISTEMAS rcalizou uma pes- 
quisa nas lojas para verificar quais 
sao os jogos mais vendidos. Os resultados 



demonstxaram que os usuarios de micros 
da linha Sinclair sao os que mais procuxam 
jogos e entre os mais vendidos destacam-se 
programas da Microsoft. JVA. Micro’s e 
SoftKristian. Encabe^am a lista da Micro- 
soft. para os TKs 83 e 85, os jogos: 
TKMan. uma vcrsao do conhecido come- 
come - o bichinho que cone atras das bo 
lachas e quanto mais con segue abocanhar. 
major o numero de pontos para o jogador; 
Rally, conida de carros onde o jogador £ 
um dos pilotos - entre as muitas dificul- 
dades a enfrentar. ele dcvc ultrapassar os 
outros competidores sem bater nos demais 
canos para nao pcrder os pontos ja conse 
guidos. Jogar xadrez contra o computador 
e um desafio que atrai muitos usuarios, e 



os iogos TKadrez I e II, tambem da Micro- 
soft, tern grande aceita<;ao no mercado. A 
software-house JVA, do Rio de Janeiro, 



possui pacotes de jogos, com cinco progra- 
mas cada um deles, que lideram a sua lista 
de venda. Dentre os mais vendidos estao as 
fitas Bichos e Cia e Combate. A fita Velho 
Oeste, da Kristian, que reunc quatro jogos, 
destaca-se tambem como uma das mais 
vendidas para os equipamentos da linha 
Sinclair. Outro sucesso de vendas £ o Cas- 
telo do Dracula, da Micro’s. Neste jogo, o 
compctidor deve colocar as estatuas do 
Castelo num caixao. fugindo do Dracula e 
do mordomo. 

A Microsoft de Sao Paulo, tambem 
possui jogos para o TK 2000. Entre os 
mais procurados estao o traditional Xa- 
drez e Panico. Neste ultimo, um boneco 
sobe uma escada destruindo seres que apa- 
recem em seu cam in ho. 

Na linha Apple destacam-se os jogos 
comercializados pela PlaySoft, entre os 
quais o Castelo Wolf stein, cuja histona se 
passa durante a Segunda Guena Mundial, 
onde o jogador tern como missao encon 
trar os pianos secretos escondidos no cas- 
telo, tendo que livrar-se dos soldados ale- 
maes que 14 se encontram. Outros dois dis- 



quetes com jogos da PlaySoft, preferidos 
do publico, sao Jogos de Salao. que reiine 
jogos de Paciencia, Poker, Xadrez e Gamao, 



e Ataque, um conjunto de quatro jogos de 
a$ao e movimento. 

Para os micros compati'veis com TRS- 
80, os jogos apontados pelas lojas como os 
mais vendidos sao: Pinoal. no qual o micro 
se transforma em uma maquina de flipera- 
ma; e a fita com quatro jogos (Boxer. Tiro 
ao Pombo.Golfe eBola aoCesto), ambos da 
Mag Soft. Entre os jogos da Intersoft. des- 
tacam-se: o Diabo Dan^arino, que muitos 
ja devem ter visto em demonstra^des de 
micros, um jogo que executa musicas com 
o acompanhamcnto de um diabinho dan- 
^arino; Batalha. onde o jogador deve des- 
truir uma frota dc naves inimigas antes que 
acabem os foguetes; e Ca^a Nfqueis, jogo 
que Simula uma verdadeira maquina ca?a 
nfqueis. 

Lojas consultadas: Compushop Com- 
putique e Imares. 
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Esta na hora de catalogar detalhadamente seus discos. 
Eis uma proposta para equipamentos TRS 80 I e III 




Catalogo de diretorios 



Carlos Roberto Cerri 



C riado para rodar em micros 
compativeis com o TRS-80, 
modelos I e III com 48 Kb, 
impressora e pelo menos um 
drive, Arquivo de diretorios 6 um utilitd- 
I rio formado por dois programas - AR- 
QDIR01/BAS e PROORDOl/BAS. 

Este utilitdrio possui uma rotina que 
recupera do video os dados dos direto- 
rios, guardando-os na mem6ria, permi- 
tindo assim que eles sejam modificados 
e deletados, bem como admitindo a bus- 
ca e localiza^ao de um programa especi- 
fico. Salva e carrega os dados de um ar- 
quivo de disco e, fundamentalmente, 
imprime tres tipos de relatbrios: 

• Catalogo de diretbrios 
• Rela^o geral de discos 
• fndice remissivo de catdlogo de dire- 
tdrios 
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DISCO N . 1 — NOME = D I STESTE 

Data: 01/28/84 - 55040 Byte* * 43 Oran* 1 ivr«* < 11 Prograaa* > - invi NAO 

ARQDIR01/BAS SARGONII/CMD CHAINTST/JCL LM0FF500/CMD ARQDIGI2/TES 
DIR/BAS ARBDIGIT/TE8 PROORDOl/BAS SUPERZAP/CMD PR0DI0I2/TE8 

ARBDI0I5/TES 



DISCO N _ 2 — NOME a CURBASIC 

Data< 09/30/83 - 39680 Byt«* « 31 Oran* livr«* < 11 Prograaa* ) - Inv» NAO 

CURBASD/BAS CURBAS1/BAS CURBAS2/BAS CURBAS3/BAS CURBAS4/BAS 

CURB AS5/BAS CURBAS6/BAS CURBAS7/BAS CURBAS8/BAS CONVERTE/JCL 

ZBUO/BAS 



Figura 1 - A disposiftio do catdlogo de diretdrios. 



MS E FEITA 
PARA VOCE 
PARTICIPE COM 
SUA OPINIAO 

Escreva-nos di- 
zendo qual a sua 
irea de interesse. 
conte -nos tam- 
Wm as suas expe- 
rifincias com seu 
micro, o que 
voc§ quer ver 
publicado em MS, o que voce acha 
da sua MS, enfim, diga tudo que 
torne MICRO SISTEMAS ainda 
mais feita para voc6. 

E lembre-se: todo leitor que nos 
escreve concorre automaticamente 
a uma assinatura de um ano de 
nossa MICRO SISTEMAS. Mande 
logo sua opini3o para Redapao de 
MICRO SISTEMAS no Rio de 
Janeiro ou em Sad Paulo: Av. 
Presidente Wilson, 165/grupo 
1210- Centro - CEP 20030- 
Rio de Janeiro - RJ; Rua Oliveira 
Dias, 153 - Jardim Paulista - CEP 
01433 • SSo Paulo - SP. 




A unica exigencia do programa 6 que 
os discos sejam identificados por nume- 
ros que variem de 1 at£ o numero de dis- 
cos que o usulrio tiver de catalogar. O 
programa foi testado com 35 disquetes e 
cerca de 550 programas (com cbpias, 
obviamente) e apresentou boa perfor- 
mance. No caso de o arquivo do usuario 
ser menor, ele poderd modificar os valo- 
res das varidveis nas linhas 40, 45 e 50 
do programa ARQDIR01/BAS e linhas 
25 e 30 da rotina PROORDOl/BAS, 
de acordo com as suas necessidades. 

Com isso ser£ obtido melhor desem- 
penho do utilitirio, principalmente no 
que se refere 3 emissSo do indice remis- 
sivo, cujo tempo de processamento 6 o 
mais prolongado. 

O programa PROOREX31/BAS foi 




elaborado separadamente, com a fmalidade tamWm de reduzir 
o tempo de processamento, sendo carregado automaticamente 
a partir do programa principal. Ap6s executar sua tarefa - or- 
denar e imprimir o Indice remissivo - ele carrega novamente o 
programa ARQDIR01/BAS. 

0 programa 6 auto-explicativo e de fdcil manipulated. Urn 
aviso aos que gostam (e quern nSo gosta?) de ir podando linhas 
na digita^o: as linhas REM estao incluidas nos comandos 
GOTO e GOSUB. 

Por fim, na figure 1 temos um exemplo de aplica^Jo do 
utilitirio. 

Carlos Roberto Cerri 4 mddico e usuirio de um DC T- 100 hi cerca de 
um ano. Ele pretende aplicar os conhecimentos de BASIC em sua irea 
proflssional. 



ARQDIR01/BAS 



10 REM • 

13 REM • AR8UIVO OE 0IRET0RI0S - V*r«»o 1.0 

20 REM • AUTOR > Carlo* Roberto Cerr I - TEL ><037)2213918 
23 REM • Rua da Bahia 1371 - Dlvlnopolla - MO - CEP 33300 



33 CLEAR 20000 

40 P8-35I 'MAX. DE PROORAMAS POR DISCO 

43 PZ-33I 'MAX. DE DISCOS POR AROUIVO 

50 PU-3001 'MAX. OE PROORAMAS POR ARttUIVO 

55 DIMPRS<PZ,P«> ,NOS<PZ),DS<PZ> ,DTS<PZ> .SS(PZ) 

60 DIMPS<P«>.PPS<PU> .B<PZ> ,0<PZ> ,NP<PZ) 

65 ON ERROR GOTO 490 
70 OOTOBOO 
73 OOTOSOO 

100 REM ——————— REGISTRO DE DIRETORIOS — 

103 CLS>PRINTai28,"9UAL DRIVE SERA UTILIZADO NA LEITURA DOS DIRE 
TOR I OS <0-3)1 "»>LINE1NPUTDRS 
110 D-VAL<DRS> l IFD< OORD >3THEN105 

115 CLSH-1 iPRINT8312,"C0L0BUE 0 DISCO NO DRIVE " ,CHRS < 34 > , DRS ,C 
HRS<34>," E TECLE SEU NUMERO > ", tLINEINPUTNUS 

117 N»VAL<NUS> 

118 IFN< 10RN)PZTHENPR I NT 9562. "ENTRE 1 E",PZlF0RX-lT0800>NEXTX>G0 
T0U5 

120 PRINT >PRINT"DESEJA INCLUIR OS AROUIVOS INVISIVEIS <S/N> ? I" 
130 RS-INKEYSl IFRS-"N"THEN140ELSEIFRS-~S"THEN150ELSE130 



140 CMS-"DIR "*STRS<0) lSNS-"NA0"lG0T016O 
150 CMS»"DIR "*STRS<D)*~ I~ iSNS-~SIM" 

160 CMD"CMS" IPR INTSTR INGS< 61 , 42 > 

170 PR INT"AGUARDE MENSAGEM > " 

180 F0RP-1548BT016320IC-PEEK <P > > IFC-42THENI-I-1 >G0T0210 

190 IFC< >32THENHC»0iPS< I >-PS< I > ♦CHRS<C)ELSEIFHC-0THENHC-1 > I»I*1 

210 NMS-""«F0RP-13371T015378iC-PEEK<P>lIFC<>32THENNHS-NMS*CHRS<C 
220 E DTS-'"'lF0RP-15381T013388iDT-PEEX<P)«IFDT<>32TMENDT*-DTS*CHR* 

<DT) «NEXT 

230 E-VAL <CHRS<PEEX< 15413) )+CHRS<PEEK < 15414) > >»1280 

240 PRINT"PARA IMPRIMIR ETI8UETA TECLE <E> PARA PROSSEQUIR <RETU 

RN > 

250 RS- INKEYS > IFRS-""THEN250ELSEIFASC <RS ) »1 3THEN310ELSEIFASC < RS > 
■69THEN260EL6C250 

260 CLSIPRINT "PREPARE A IMPRESSOR A" I PR INT"CARACTERES NORMA IS <N> 
OU COMPRIMIDOS <C) ? ~ 

262 RS“ INKEYS > IFRS“'"'THEN262ELSE IFRS“"N"THENCA“1 4 1 CB ■ 20 > ELSE IFRS 
-"C-THENCA-15ICB-18ELSE262 

270 LPR INTCHRS < CA ) | >LPR I NTCHRS< 14 > |NUS" - "NMS 
290 A— 14lFORP-lT0HA-A+14lIFA-)6BTHENA-0«LPRINT'' " 

300 LPR I NT TAB (A)PS<P>» INEXTP >LPR INT" " t LPR I NT l LPR I NT l LPR INTCHRS < 

CB), 

310 GOSUB 400 > OOSUB 420 

320 PRINT-OUTRO OIRETORIO A SER INCLUIDO ? <S/N> • " 

330 RS« INKEYS i IFRS“"8"THEN1 13ELSEIFRS""N"THEN330EL8E330 

350 CLS>PRINT~MONTE NO DRIVE 0 0 DISCO SUE CONTEM OS PROGRAMASi 

AR0DIR01/BAS E PR00RD01/BAS ." 

360 F0RX-1T02300INEXTX 
370 GOT 0500 

400 N-VAL<NUS)»NP<N)-I . 

4 os NOS < N ) «NMS >DS< N )“0TS >B<N)“E>0<N) "E/12801 SS< N > «SNS 
410 F0RZ-1T0I>PRS<N.Z)»PS<Z)«NEXTZ 
415 RETURN 

420 F0RX-1T0P«>PS<X)-*"'INEXTX 
425 RETURN 

490 CLStPRINT-ARBUIVO NAO INICIALIZAD0"tF0RX-lT0800lNEXTX 
500 REM ————— TELA PRINCIPAL -- 

505 CLSiPRINTTAB <0)'AR«UIV0 DE DIRETOR IOS", TAB < 49 ) "TELA PRINCIPA 
L~ >PR INTSTRINGS<63, 45) >PRINT>X"14 

510 PR I NTT AB < X )"1 - INCLUIR / MODIFICAR DIRETORIOS" 

315 PR I NT TAB < X >"2 - MOSTRAR OIRETORIO NO VIDEO- 
520 PRINTTAB<X> "3 - PROCURAR PROGRAMA ESPECIFICO" 

530 PRINTTAB<X) "4 - DELETAR DIRETORIO" 

535 PR I NT TAB < X > "5 - GRAVAR AROUIVO" 

540 PR INTTAB < X) "6 - ROTINAS DE IMPRESSAO" 

545 PR INTTAB < X ) "7 - ENCERRAR PROGRAMA" 

550 PR INTTAB < X >STR INGS < 35,45) 

555 PRINT > PR I NT TAB < X ) "SUA OPCAO > ~ 

360 RS-INKEYSl IFRS-""THEN560 
565 X-VAL <RS ) 

370 ONXGOTO 100.600.850,900,700.1000.580 
573 GOTOSOO 

300 Cl S>PRTNT"PRPGRAHA FNCERR ADO" lEND 
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MICRO BUG 



Sim, desejo receber 

O a fita MICROBUG, pela qual pagarei Cr$ 15 mil + Cr$ 1J00.00 referente a 
despesas do correio. 

□ os numeros atrasados de MS, pelos quais pagarei o preco de Cr$ 1 mil* por exem- 
plar. Me in teressam as edigOes: □ MS n? 31 □ MS n? 33 

□ MS n9 32 □ MS n? 34 

TOTAL: Cr$ 






ENDEREQO: 

CIDADE: CEP: ^ 

Para tal.estou enviandoum cheque nominal d: ATI Editors Ltda. (Projeto MICROBUG) 
Av. Presidente Wilson nP 165,grupo 1210 — Centro — CEP 20030— Rio de Janeiro, RJ.' 
* Despesas de reembolso excluidas 

OBS. : Os produtos acima podem ser adquiridos diretamente em nossos escritdrios do 
Rio ou Sao Paulo sem despesas de correio. 



EM FITA 



O projeto MICROBUG, desenvolvido pela equips do 
CPD de MS, foi criado para auxiliar o entendimento e 
a exploraplo dos recursos existentes nos micros da 
linha Sinclair. Sua construgSo, pasao a passo nas 
piginas da revista, tarn tido importlncia decisive no 
aprend izado a desenvolvimento dos usuArios na 
programapfo em linguagem de mAquina. 
Devido ao enorme sucesso do MICROBUG, refletido 
nas inOmeras cartas que temos recebido, a ATI 
EDITORA LTDA. optou por oferecer a versio 
integral do MICROBUG. 

Para tal.foi contratado um estttdio especializado, 
garantindo um padrAo de gravapAo prof issional e 
uma embalagem inviolAvel que vocA irA apreciar. 
Como a documentapAo do MICROBUG comepou em 
MS n? 31 , aqueles que adquirirem a fita terAo a 
OPORTUNIDADE DE COMPRAR OS 
EXEMPLARES QUE NAO POSSUAM POR UM 
PREQO ESPECIAL. Aproveite esta chance e 
usufrua logo do MICROBUG em sua forma integral. 
Preencha o quadro ao ladoe mande jA o seu pedido. 

TIRAGEM LIMITADA. 





catAlogo de diretGrios 



600 REH —————— DIRETOR 10 NO VIDEO — 

605 CL8iPRINT"DIGITE 0 NUNERO 00 DISCO, CUJO DIRETOR 10 OESEJA VE 
R I - 

610 PRINT"(Para voltar ao Htnu d* Opcoca digit* * • ' ) " 

618 PR INT953 , * ", ILINEINPUTNUS 
620 IFNUS-"«"THEN500 
628 B-VAL(NUS> 

630 IF8< t ORB IPZTHENPR INT8214 , "NUHERO INVAL IDO" IF0RX-1T0600 INEXTX 
1 00 T 06 08 

633 IF NOS< 8) -""THENPR INT9212, "DISCO NAO CA0ASTRA00"lF0RX-lT0600 
■NEXTX l 00T060S 

640 CL S i PR INTTAB (0)"0ISC0 N. " , IPR INTUSING"HH" ,8 , IPR INTTAB < 45 > "N 
ONE l "N0S<8> 

645 PR INTTAB < 0 > "Dat a d* Foraiatacao I "0S<8 > ,TA8 < 37>"N. d« Progr 
am i "NP (8) 

650 PRINTTAB(0)"Byt*s llwr«* i "B < « ) i TAB < 37 >"0r ana IlvrM 

t "0(B) 

655 PR INT8TR INGS ( 62 , 45 > 

660 A— 16IF0RZ«1T0NP<8>IA-A*16HFA->60THENA-0IPRINT" " 

663 PRINTTAB(A>PRS<8.Z),lNEXTZiPRINT" " I PR INTTAB < 0>STR INGS < 62. 45 

) 

670 PRINT-DE8EJA VER OUTRO OIRETORIO <S/N> 7" 

675 RS-INKEYSlIFRS-*"THEN675ELBEIFRS-"S"THEN600ELSE300 
6B0 OOT 0500 

700 REN ————— GR AVAR ARBUIVO — 

70S CLSlPRINT'CONFIRHE GRAVACAO <S/N> I" 

710 RS-INKEYSi IFRS-"" TMEN710ELSEIFRS-"S"THEN715ELSE500 
715 PR INT8665 , "0 R A V A N 0 0" 

720 OPEN-O". l."LIST0IR/DA0" 

723 F0RB-1T0PZ 

730 PRINT R1 , NOS< 8 ) IPR INT R1 , 04(B) IPR INT Nl.StCB) 

733 PRINT HI , B < B> IPR INT HI , 0< B ) IPR INT H1,NP(B) 

740 FORZ-1 TONP < B > 

745 PRINT H1,PRS(8,Z> 

750 NEXTZ 

755 NEXTBiCLOSE H00T0500 

BOO REN ————— CARREOAR ARBUIVO — 

805 CL8IPRINTB730, "AOUAROE . . ." 

810 OPEN" I" , 1 , "LISTDIR/DAO" 

815 F0RB-1T0PZ 

820 INPUT HI , N0S(8) l INPUT HI ,DS<8> I INPUT H1,SS<8> 

825 INPUT Hl,B<B)l INPUT HI . 0(B) I INPUT Hl.NP(B) 

830 FORZ-ITONP(B) 

835 INPUT H1,PRS(B,Z> 

840 NEXTZ 

845 NEXTBiCLOSEl I00T0300 

830 REN ————— PROCURA PROGRANA— 

855 CLS l CT “0 1 L I NE I NP UT"NONE DO PROGRANA I ",PGS 
860 PR INT i PR INTTAB < 0)"PR00RANA" , TAB < 18 > "DISCO ( S ) " 

865 PR INTTAB <0>" ",TAB( 18)" " IPR INTTAB < 0 IPGS, TAB < 1 

6 ) “ I ", 

870 F0RY-1T0PZIF0RU-1T0PB 

875 IFPGS-PRS<Y,U>THENCT-liPRINTUSING"NH",Y, IPRINT" ", 

880 NEXTUiNEXTY 

885 IFCT-1THENPRINT"- OK"ELSEPR INT"PROORANA NAO ENCONTRAOO" 

890 PRINT IPR INT"OUTR A PROCURA <S/N> 7" 

895 RS-INKEYfi IFRS-"S"THEN855ELSEIFRS-"N"THEN500ELSE895 
900 REN — — — — DELETAR REOISTRO — 

905 CLS IPR INT IPR INT"DIGI fE 0 NUNERO 00 OISCO BUE OESEJA DELETAR 
I " 

910 PRINT"CPara voltar ao N«nii dc Opo*s digit* * • ')" 

915 PR INT81 11," ", ILINEINPUTNUS 
920 IFNUS-"»"THEN500 
925 N-VAL(NUS) 

930 IFN< 10RN)PZTHENPRINT9532, "NUNERO INVAL IDO" IFOR X-1T0600* NEXTX 
I GOT 0900 

935 IF NOS< N> -""THENPR I NT9532 , "OISCO NAO CAOASTRAOO" IF0RX-1T06O0 
I NEXTX I00T0900 

940 NOS < N ) -""iDS< N >-"" I B ( N ) -0*G< N) -0* SS(N) -"" *NP <N > “0 
943 F0RZ-lT0P8lPRS(N,Z)-""INEXTZ 

930 PRINT3398, "OIRETORIO 00 OISCO ~N~ DELETAOO" IPR INT9730, "OESE J 
A DELETAR OUTRO OIRETORIO (S/M> 7" 

935 RS-INKEYSI IFRS-""THEN9S5ELSE IFRS-"S"THEN900ELSE500 
960 00T0500 

1000 REN —————— TELA 2 — 

1003 CLS* PR INTTAB (0) "ARBUIVO OE D IRETOR IOS" , T AB ( 43 > "ROT INAS OE I 

NPRESSAO" IPR INTSTR INOS < 63 , 45 )*PRINT*X-10 

1010 PRINTTAB<X)"1 - IHPRINIR CATALOOO OE OIRETORIOS" 

1015 PR INTTAB ( X >"2 - INPRINIR RELACAO GERAL DE DISCOS" 

1020 PR INTT AB ( X >"3 - INPRINIR INDICE RENISSIVO DE PROGRANAS" 



1025 PR INTTAB < X >"4 - TELA PRINCIPAL 
1030 PRINTTAB(X)STR INGS 142, 45) 

1035 PR INT l PR INTTAB < X >"9UA OPCAO l " 

1040 RS-INKEYS*IFRS-""THEN1040 
1042 X-VAL< RS > 

1045 ONXGOTO 1100,1200,1300,500 
1050 G0T01000 

1100 REN ————— INPRESSAO CATALOGO — 

1103 GO SUB 1205 
1103 PG-HCT-0 
1110 F0RB-1T0PZ 

1113 IFB- 1 THENLPR INTTAB < 73 ) "PAG . "PG ILPR INT ILPR INTCMRS ( 14 ) ," 
CATALOGO DE DIRETOR IOS" l LPR INT ILPR INT ICT-CT*5 
1120 IFNOS< 8) -""TMENNEXT 8 
1125 IFB>PZTHEN100O 

1130 IFCT-OTHENLPR INTTAB < 73 > "P AG. "PGlLPR INT lCT-CT-2 
1135 LPR INT ILPR INT ILPR INT 

1140 LP RI NT TAB<3>CHRS<14), "DISCO N. - , I LPR INTUSING'HH" ,B, ILPR INT 
- - NONE i "NOS< 0 ) ILPR INTCHRSI 20) , 

1145 LPRINTTABI4) "Dat a • "DS<B)" -"B«B)~Bgt*a *~0<B)"Gran* llvr** 
<"NP(B) "Progr aaiaa ) - Invl "SS«B> ILPRINT 
1150 A— 8iF0RZ-lT0NP(B)IA-A*14lIFA-)70THENA-6iLPRINT" " 

1133 LPR INTTAB <A)PRS(B,Z),iNEXTZlLPR INT" " ILPR INTTAB ( 3)STR INOS ( 7 
6 , 43) ILPRINT 

1160 IFNP ( B ) “OTHENNP < 8 ) » 1 

1165 CL"<NP(B>*4> 73lCT“CT ♦ INT (CL > 

1170 CT-CT*8 

1175 IF CT->52THENG0SUBU85lPG-P0*HCT-0 
1180 NEXTBlOOTOlOOO 

1185 F OR !•! T066-CT ILPR INT I NEXT 1 1 RETURN 
1200 REN — — RELACAO DOS OISCOS 
1203 G0SU8 1205* G0T01 213 

1203 CLS»PRINT~PREPARE A INPRESSORA NO INICIO DO FORNULAR 10 E TE 
CLE <RETURN>" 

1210 RS-INKEYSt IFRS""" THEN 1 21 0EL8ERETURN 
1213 TB-OiTG-OlTN-O 

1220 LPR INT i LPR INTCHRSI 14 > , " RELACAO GERAL DOS DISC08"ILP 

RINTlLPRINTlLPRINTTABI 10>STR INGS< 59 , 45 > 

1225 LPRINTTABIIO) "NUNERO" , TAB < 23>"N 0 N E" , TAB < 39 ) "BYTES" , TAB < 5 
0 > “GRANS" , T AB < 60 >"PR00R ANAS" 

1230 LPR INTTAB < 39) "LI VRES" , TAB ( 50 )"LI VRES" 

1235 LPR INTTAB < 10)STR INGS (39 , 45) 

1240 F0RB-1T0PZ 

1245 IFNOSC 8 )""~TMENNEXTB 

1250 IFB >PZTMEN1270 

1235 LPR INTTAB < 12)U8IN0"HH",B, ILPR INTTAB <23>N0S<B>, ILPR INTTAB (39 
>USING"HH*aa*",B <B), ILPR INTTAB < 51 )USIN0"HHH", 0<B), ILPR INTTAB (63) 
USING"H8" ,NP < B > 

1 260 TB-TB*B < B ) l TG"TG*G < B ) l TN-TN+NP < 0 ) 

1265 NEXTB 

1270 LPR INTTAB (10) STRINGS <59, 45) 

1273 LPR INTTAB < 18 ) "T 0 T A I S I " , I LPR INTTAB ( 38 >USING"HHHHHHH" , T 
B; ILPR INTTAB (50 )USING"»»HH“ , TG, ILPR INTTAB (62 >USING"HHH~ , TN 
1280 LPR INTTAB ( 10>STR INGS < 59 , 45) 

1285 GOTOIOOO 

1300 REN —————— ORDENACAO E GRAVACAO — 

1301 CLS i PR I NT "OESEJA GRAVAR EH OISCO 0 ARBUIVO DA NENORIA <8/N> 

7" 

1302 RS“ INKEYS l IFRS"" " THEN 1 302ELSE IFR S“"S"THEN700 

1305 CLS i PR INT"AGUAROE ... VOU INICIAR PROCESSANENTO DA ORDENACAO. 

1310 J-l 

1315 FORY-ITOPZ 

1320 IFNOS(Y)»"~THENNEXTY 

1325 F0RU-1T0P8 

1330 IFY >PZTHEN1370 

1335 IFPRS(Y,M>-"~THEN1365 

1340 G0SUB1390 

1345 PUS-PRS<Y,W)*BRS 

1350 BBS*R IGHTS< STRS< Y) ,2) 

1335 PPS< J)-BBS*"-"*PMSIJ-J*1 
1360 NEXTU 
1365 NEXTY 

1370 OPEN"0".2,"LISTOIR/ORO" 

1375 PRINT H2,J 

1380 FORZ-lTOJiPR INT H2 , PPS< Z ) INEXTZ ICL0SE2 
1383 RUN"PR00R001/BAS" 

1390 BRS-~"iFORZ-LEN(PRS< Y.N) >T012 
1395 BRS-BRS*" " 

1400 NEXTZlRETURN 



PROORDOl/BAS 



10 REN —————— PROORDOl/BAS ———————— 

15 REH — — ROTINA PARA INPRESSAO DO INDICE RENISSIVO — — 
20 CLEAR 27000 

23 PP-8001 ' NAX. OE PROORANAS (INCLUSIVE BACK-UP) 

30 PR-4001 ' NAX. OE PROORANAS (SEN BACK-UP) 

35 OINPPS(PP),PIS(PR) , PUS (PR > 

40 OINPKPR) ,PU(PR> 

30 OOSU826S 

53 CLS IPR INT"PROCESSANOO A ORDENACAO..." 

60 OPEN"I",2,"LI8TDIR/ORO~ 

63 INPUT H2.J 
70 F0RZ-1T0J 
73 INPUT H2,PPS(Z> 

BO NEXTZICL06E2 
83 NX— J-l 
90 F0RZ-1T0NX 

93 IFVAL <LEFTS(PPS< Z ) ,2 ) ) ( 10THENPPS( Z )■" "*PPS(Z> 

100 NEXTZ 

103 CN0"0" ,HX,PPS< 1 ) <3, 16) 

110 X>1IJ"1IPI(J)-X , 

113 F0RZ-1T0NX 

120 IFRIAMTS(PPS<Z; ,13>»RI0MTS(PPS<Z»1 ) . 13)TMENX-X»1 IGOT0130 



123 IFRI0HTS<PPS<Z),13><>RI0MTS<PPS<Z»l),13)TMENJ-J»llPI<J)-Z*liPU(J-l)"X*llX"0 
130 NEXTZlPU(l)-PU(l)-l 
133 FORZ-lTOJ-l 

140 PIS(Z)"R10HTS(PPS(PI(Z) >,13> 

143 F0HX-PI<Z)T0PKZ)*<PU<Z>-1> 

130 RS-LEFTS(PPS(X),2) 

153 PUS(Z)"PUS(Z>»" "»RS 

160 NEXTXINEXTZ 

163 CLS *PR INT" I NPR IHINOO . . ." 

170 LPRINTILPRINTTAB< 72 >"PA0. 1"ILPRINT 

175 LPRINTTAB1 16)" IND1CE RENISSIVO DO CATALOOO DE OIRETORIOS" 

180 LPR INTT AB < 22) "•• •■ TOTAL I ", ILPRINTUSINO"»«H", J-l , ILPRINT" PROORANAS ■•••"IL 
PRINT 

IBS OOSUB245 
190 CT-lHPO-1 
193 FORZ-lTOJ-l 

200 LPRINTTAB(5)PIS(Z),TAB( 20) "I", TAB < 23)PUS< Z ) 

203 CT-CT»1 

210 IFCT-61 THENPG"P0*1 IFOR X-1T06 ILPRINT* NEXTX «CT "0I00SUB240 
213 NEXTZ 

220 LPRINTTAB(3)STRINGS(74,45) 

223 CLSlPRINT'OUTRA COPIA (S/N) 7" 

230 RS-INKEYSl IFRS-""TMCN230ELSEIFRS-"S"TMENOOSU8265lOOT0165 
235 RUN"AR8DIR01/BAS" 

240 LPR INT ILPR INT I LPR INT TAB <72)"P AO. ",PO*CT"CT*B 
243 LPR INT ILPR INTTAB (3>~PR00RANA(S)', TAB (23 )"DISCO(S) 

230 LPR INTTAB (5)STRINGS< 13,43) , TAB (23) STRINGS (56 ,45) 

233 LPR INT 

260 RETURN _ 

263 CLS l PR INT"POSIC IONE A INPRESSORA NO INICIO DO FORNULAR 10 E TECLE (RETURN)" ■ 
270 IT INKEYS-"" THEN270ELSE RETURN ■* 
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MICRO SISTEMAS, janeiro/85 




FECHE ESTE JOGO E RESOLVA 
SEUS PROBLEM AS. OU NAO. 




Voce pode fechar este jogo de duas maneiras. 

Pode fechar assim; 

fechou e n3o ganhou nada. Mas pode fechar certo. 





BR 116/km 25. Cx. Postal 146 
06800 Embii SP - Tel.: 011/494 2433 
Pabx Telex 011/33234 KMPL BR 
Telegramas Pirelcable 



kmP 



Cabos E specials e Sistemas Ltda. 



Ai voc§ ganha uma empresa 
que fabrica os melhores cabos 
coaxiais para audio, video e 
radiofrequencia aqui no Brasil, 
tendo como principal ponto a 
qualidade de seus produtos. 
Uma empresa que fabrica os 
melhores cabos coaxiais para 
audio, video e radiofrequencia 
do Brasil, com nacionalizapSo 
do produto em ate 100%, 
utilizando material da mais alta 
qualidade e mais de 180 
funcionSrios altamente 
especializados. 
Se vocfi fechou o jogo da velha 
da maneira certa, voce ganhou 
a KMP, uma empresa que 
utiliza a melhor materia prima, 
pessoal brasileiro altamente 
especializado, tern como ponto 
principal a qualidade de seus 
produtos e um indice de 
nacionalizapSo de quase 100%. 
Tudo isso para que voc6 tenha 
os melhores cabos coaxiais de 
audio, video e radiofrequencia 
do Brasil. 



Qualquer duvida chame nosso Departamento de Engenharia de Marketing. E NUNCA PERCA NESTE JOGO DA VELHA. 




fTl.S. SeruicDS 



niMMA 



SOFTWARE - CP/M 



• Administrate Imdveis/ 
Condom fnios 

• Controle Administrative/ 
Financeiro p/Clubes, Escolas, 
Corretoras Seguros 

• Controle Operacional Hot6is 

• CorregSo MonetSria balango 

• Faturamento Servigos Medicos 
(Convenios) 

• FormulagSo/C4lculo de RagSes 

• Gerenciamento Rebanhos Gado 
Leiteiro e Gado de Corte 



Praia de Botafogo n9 210 — C-01 
CEP 22250 - Botafogo - RJ 
Tel. PBX (021 > 551-6699 



rncRoeoLflpa 



COMPUTADORES 
E PERIFERICOS 



UNITRON 

MICROCRAFT 



VENDAS 

LEASING 

PROGRAMAS 

CURSOS 

ASSISTENCIA 

TECNICA 



Av. Mai. Camara, 271 »/loja 101 
Tel: (021) 262 3289 — R.|. 







iinformAtica 



HARDWARE 

Compra e venda de microcomputadores 

ASSINATURAS 

Listagens de programas para a Imha 
Sinclair 

SOFTWARE 

Desenvolvimento. venda e locagSo 
SUPRIMENTOS E ACESS0RIOS 

Diskettes, drives, joysticks. formulOrios 
continuos. etc 

CONSULTORIA E SERViqOS 
EMPRESARIAIS 

Escritdnos. lojas. escolas e consultdnos 

CONSULTE-NOS 

SEM COMPROMISSO 

TROPICAL INFORMATICA LTDA 

AV NOVA INDEPENDENCE. 281 -CJ 1 

FONE (011)533 4971 -CEP 04570 

BROOKLIN - SAO PAULO - SP 



ROBOTIC 



Microcomputadores de 
todas as marcas 
novos e usados 

Suprimento 

Pegas e partes para 
microcomputadores 

Jogos eletronicos 



RUA BARATA RIBEIRO, 370 
— Loja 105 APART HOTEL — 
COPACABANA - RIO - RJ 
TEL: (021) 257-6396 



ALBAMAR 

EL£ TRONIC A LTDA. 



FITAS CASSETES 
TAMANHOS 

C5 CIO Cl 5 C20 
C30 e outros 



•FITAS 

MAGNFTICAS 

1 200 e 2400 pes 

• DISKETTES 

5 1/4 e 8" 



Rua Conde de Leopoldma. 
270-A Sdo Cristovdo — R.J. 
Tels (021) 580-6729 
580-8276 



PARA PROBLEMAS COM MATERIAL DE 

DESENH0 • P1NTURA ENGENHARIA 
PAPELARIA ESCRITORIO MAQUINAS PI 
ESCRITORIO E SUPRIMENTOS EM GERAL 

O BEL-BAZAR 

eletrOnico 






MACH FORM 

MAQUINAS 

E FORMULARIOS LTDA. 




REBOBINACAO DE FITAS 
DE IMPRESSORAS 

ELGIN. DISMAC.ELEBRAeoutras 

encadernaqOes 

SERVIQOS GRAFICOS 
OFFSET — TIPOGRAFICO 

NOTA FISCAL - FATURA 

implantacAo - renovaqAo 

COMPRA E VENDA DE 
MAQUINAS DE ESCRITORIO 
EM GERAL 

contrato de manutenqAo 

E C0NSERT0S 

ARTIGOS DE PAPELARIA 



AV ALMIRANTE BARROSO. 81 • U “C” 
TEL: 262 9229 262-9088 2408410 • 221-8282 
RIO DE JANEIRO - CASTELO 



Rua do Propdsito. 42 Sob 
Saude — R J 
Tel (021)233 1593 



MICROCITY 

compuladoros e sislema % 



MICROS, 
PERIFERICOS, 
SUPRIMENTOS, 
SOFTWARE, 
MANUTENgAO, 
CURSOS E 
LITERATURA. 

EFICIENCIA E 
CONFIABIUDADE 

A ESSENCIA DO 
NOSSO TRABALHO 



R. Paraiba, 1256 Savassi 
Tel.: (031) 227-4291 
Belo Horizonte — M.C. 



















VENDO 



financio 




°mpro 




SOFTWARE 



• Apple & Compatfveis programas 
e manuais - solicite listas — Domi- 
nio Publico Soft & Man — Cx. Pos- 
tal 201 — S. Bernardo do Campo 
- CEP: 09700 - S. Paulo. 

• Soft para Apple — Cr$ 18000 dis- 
co cheio. 500 tftulos. Pega cat4lo- 
go — Alfamicro — Cx. P. 21193 — 
SP. 



• Linha TRS80 Color 300 progra- 
mas a sua escolha pega cat£logo 
Josb Luiz Pereira Cx. P. 1536 — 
Foz do Iguagu — CEP: 85890 — PR. 



• Vendo programas p/CP500. Tra- 
tar c/A. Gaeta Mq. Sao Vicente. 
51 2/1 002 - Rio de Janeiro - R J. 



• Troco programas em Basic ou 
Assembler por carta ou por fita. 
TKs. CP. Rogdrio R. Liberdade, 
147-apto. 1 1 B — Santos — SP. 
CEP: 11100. 

• Vendo/troco software p/CP 500 
e similares. Aplicativos, jogos, as- 
sessoria e programas sobencomen- 
da. Cx. P. 5137 - CEP: 74000 
GoiSnia - GO. Fone: 225-0632. 

• TK85 e compat fveis. Programas 
in6ditos. Pega relagao pelo correio. 
Bonisoft. Av. Paula e Souza. 422 

Maracana - RJ - CEP: 20271 . 



• Atengao empresdrios usu4rios da 
linha TRS80. disponho de um soft- 
ware gerador de histograma na im- 
pressora com escala e plotagem va- 
riciveis. Informagoes pela Caixa 
Postal 2913 CEP: 60000 - Forta- 
leza — CE. 

• Vendo fita com 10 programas p/ 
TK2000 ou TK85 por Cr$ 40 mil, 
inclusive interpretador Logo. Ven- 
do compilador forth para TK2000/ 
85. Compro programas p/TK2000 
— S. C. Sampaio — Fone 21 19595 
ramal 186 - Rua Pe. Leo po I do 
Fernandes. 360 - 60000 — Forta- 
leza — CE. 



• Vendo 40 jogos 16K p/25 mil 
como: Zaxxon e Phoenix p/TK e 
Sinclair e 1 00 jogos p/Atari 2600: 
32 ouro e 68 prata p/400 mil. Ser- 
gio - Cx. P. 529 - CEP: 09500 - 
S. C. Sul - SP. 



• Vendo e troco bons programas 
para TRS-Color/CP400. Adriano 
Botelho R. Antonio J. Almeida, 
180 - CEP: 13900 - Amparo - 
SP. 



• Troco programas CP-500 disco. 
Paulo R. Emiliano Perneta, 837 
apto 802, Curitiba - Parana — CEP: 
80000. 

• Programas p/Apple: aplicativos, 
utilitArios, compiladores, lingua- 
gens e jogos. Tel.: (021) 239- 
0449, Stela. 



• Topografia: Soft p/cdlculo 

analftico de 4rea p/Sinclair 16K 
(300 estagoes). C/Ricardo Tel.: 
(055) 221-1581, Silva Jardim 
1953 apto. 702 Sta. Maria — RS. 

• Alta resolugSo no seu Sinclair ape 
nas por Software. P/receber maio- 
res informagfies escreva p/R. Ti- 
mor, 41 S.B.C. SP CCP: 09700 ou 
Trav. Quintino Bocaiuva, 32 - St. 
Andrt-SP- CEP: 09000. 

• Datamicro Software Clube, me- 
diante pequena mensalidade, reti- 
re semanalmente um programa de 
jogos ou aplicativos para Sinclair, 
TRS-80 Color. TK2000. Rua Vise, 
de Piraj4, 547 s/21 1 tel.: 51 1 -0395. 



DIVERSOS 



• Commodore-64, assessoria, soft- 
ware. manutengao e acessbrios. 
Av. Brig. Faria Lima, 1644 s/I 26 
- Sao Paulo - SP. Fone: (011) 
843 1065. 



EQUIPAMENTOS 



• Radioamador vendo interfaces 
para CW e RTTY para ser usado 
com seu micro TK82/83/85 CP 
200 Ringo. Renato Strauss PY2- 
EMI. Rua Cardoso de Almeida, 
654/32 05013 - Sao Paulo - SP. 



• Eprom ZX-Aszmic transforma o 
seu TK82/83/85 e CP200 em uma 
unidade de programagao Assem- 
bler. Use todos os Mnemdnicos Z 
80, Labels, Origin. Equate. Alta re- 
solugSo grifica, 255 XI 44 Pixels. 
Todas as teclas com auto-repeat, 
merge de programas de fita K7, e 
muitas outras funpoes. Acompa- 
nha manual de 100 p4ginas. 14 
ORTN. Mandamos por reembol- 
so Varig. Pedidos i Compute, Rua 
Cruz Machado, 474, Caixa Postal 
1427, Curitiba, PR. CEP: 80000. 



CURSOS 



• HARDWARE ministra cursos de 
Microprocessadores Z-80, 8085, 
8080, 8086, 8088 e seus perif6ri- 
cos: PIO, SIO, CTC, 8212, 8224, 
8228, 8251, 8253, 8255. ASSEM- 
BLER Zilog e Intel. E o primeiro 
curso de manutengao de Micro- 
computadores do Brasil de toda li- 
nha TRS-80 (CP-500. DGT-100, 
D-8000, Sysdata. Naja). APOSTI- 
LAOOS — Rua das Marrecas, 39 
S/402 — Rio de Janeiro — RJ. — 
Tel.: (021 ) 220-5403 e 252-9683. 

• A Apple House-Sigmatron estd 
ministrando cursos de: Basic, 
Assembly (Micro Processador 
6502), DOS (arquivo em disco). 
Todos os perfodos, matriculas aber- 
tas, certificado de freqiiencia. Av. 
Cotovia, 350 - Moema. Tel.: 240- 
9004. 




QUEM MANDA 
NESTA PAGINA SOU EU! 



Apoiadol Equipamentos, Software, Cursos, Clubes e Diversos: 
voce 6 quem decide o qua, quando e como anunciar nos 
Classificados MS. Quanto vocl ter* qua pagar? I iso tamMm 4 
decisSo sua. Preste atengao: 

• cada linha de texto (30 toques, incluindo os espagos em brsneo) 
oust a Cr$ 2.000,00; 

• linhas incompletas serfo cobradas como inteiras; 



• o prbprio anunciante deve checar o valor de seu anbncio com o 
nGmero de linhas que ele contiver; 

• o anuncio deve vir acompanhado de um cheque nominal 4 ATI 
Editora Ltda; 

Os textos devem ser datilografados ou escritos em letra de forma, 
obedecendo as 30 batidas por linha. Veja um exemplo: 
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o 
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0 
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Se voce tem pequenas rotinas e programas utilitdrios 
realmente uteis tomando poeira em seus disquetes ou fitas 
cassetes, antecipe-se aos piratas e trate de divulgd-los. En- 
vie-os para a REDAgAO DE MICRO SISTEMAS - SE£AO 
DICAS: Av. Presidente Wilson, 165/grupo 1210, Centro, 
Rio de Janeiro, RJ, CEP 20030. Nao se esquega de dizer 
para qual equipamento foram desenvolvidos. Desta forma, 
sua descoberta poderd ser util para muitos e muitos, em 
vez de desmagnetizar-se com o tempo em suas fitas e dis- 
quetes... 



Linha TRS-80 



Sensaqao na tela 

Provoque um efeito sensacional no video do seu micro, 
com esta dica que faz a mensagem surgir, cardter por cardter, 
do canto direito da tela ate a posi 9 §o desejada. Teste e con- 

fir a 

>CLEAR 200 

10 CLS s INPUT"MENSAGEh" ; Ml : CLS s 

=M%+" 

20 FOR K = 1 TO LEN ( MS ) s FOR 1=63 T 
0 K STEP -i2PRINTo)I,MID9><M$ r K F l) 
7 " "sNEXT I r K s GOTO 20 



Antonio Carlos L. de Santana — SP 



Linha SINCLAIR 



Centralize o texto 

A i vai uma dica para os iniciantes aprenderem a 
centralizar os textos no seu micro: 

10 LET AS="CENTRALIZACA0" 

20 PRINT TAB 15-LEN A<fc/2«A9i 

ou 



Escreva na tela do seu equipamento como se estivesse 
batendo a maquina com esta dica: primeiro, digite o se- 
guinte programa: 

1 SEN .....( 40 ponlos) 

10 FOR A-16514 TO 16554 
20 INPUT B 
25 PRINT Aj'«"»B 
30 POKE A.B 
40 NEXT A 

Depois, de RUN e entre com estes cddigos em decimal: 



16514 205 

187 
2 

68 

77 

121 

254 

255 
62 
0 

40 

244 

205 

189 

7 

126 

205 



16531 8 

8 

254 
12 
200 
A 

1 

17 

255 
255 
33 

50 

55 
25 

56 
253 
16 
248 
24 
219 
248 
24 
216 



Ap6s a entrada dos codigos, elimine as linhas de 10 a 
40, ficando apenas com a linha 1 (linha REM), e rode es- 
ta dica com RAND USR 16514. £ bom lembrar que de- 
ve-se usar o espa 90 usado normalmente para separar as 
palavras (como em datilografia). Quando terminar de ha- 
ter o seu texto no micro, basta apertar SHIFT e BREAK 
para encerrar. 



Manoel Silva Rodrigues — RJ 



Linha TRS-80 



Graficos em string 

Enfeite seus programas ou logotipos com este progra- 
ma, em que o micro pergunta o grdfico desejado (dentre 
os cddigos de 128 atd 191), e dentro de uma string da li- 
nha 20 surgird entdo, repetido 64 vezes, o grdfico pedido. 
Por falar em linha 20, l necessdrio deixar 64 espa^s em 
branco nesta linha. 

4 CL8 

5 INPUT"DIGITE 0 CARACTER OESEJA 

DO (128 -> 191) ",T 

10 IF T< 128 OR T > 191 THEN GOTO 5 

20 LET 0*-" 



30 G-VARPTR(GS) 

40 PA-PEEK(G+2>«2564PEEK(G+1) 

50 FOR I “PA TO PA+63 
60 POKE I , T 
70 NEXT I 
80 CLS 

90 PR INT"LISTE 0 PROGRAHA E OBSE 
RUE A LINHA 20" 



2fJ PRINT AT 10, 15-LEN A$/2;A9> 

Ruy Mauricio R. Ribeiro — RJ 



Miguel Angelo Henley G. F9 — RJ 











Linha TRS-80 



Tela danqante 

Coloque esta dica em linguagem de mdquina no monitor residente do 
seu micro e veja a tela tremer como se estivesse a ponto de explodir: 

7000 3E 04 D3 EC 
3E 00 D3 EC 
C3 00 70 

E para quern desejar fazer este mesmo efeito, s6 que bem mais lento, 
6 s6 entrar com esta linha em BASIC : 

10 OUT 236 f 0 s OUT 236 r 4:G0T0 10 



Alexandre Costa Caeta — RJ 



Linha 



SINCLAIR 



INKEYS em FAST 

Quern pensava que s6 podia ver 
INKEYS em SLOW, agora verd que es- 
tava enganado: esta dica fdcil permite vi- 
sualizar o IN KEY S em FAST tambem! 
E para isso, basta colocar antes de qual- 
quer linha com IN KEYS, uma linha que 
tenha: RAND USR 681. Muito simples, 
nao? 



Adriano Pascoal Pereira — RJ 




Simulando DEFM 


Eis uma dica bastante util para 
o pessoal que lida com Assembler: 
ela Simula, com rapidez e seguran- 
9a, a instru9ao DEFM. Nesta roti- 
na que daremos a seguir, as linhas 
9030 e 9035 mudam a posi9ao do 
PRINT do arquivo de imagem pa- 
ra uma drea qualquer da RAM (de- 
signada pela varidvel E), fazendo 
com que o PRINT funcione co- 
mo um POKE mais poderoso do 
que 0 normal. 


9000 


PRINT "ENDERECO ?" 


9005 


INPUT E 


9010 


PRINT "MENSAGEM ?" 


9015 


INPUT M$ 


9020 


LET X=PEEK 16398 


9025 


LET Y=PEEK 16399 


9030 


POKE 16398 , E-256* 
INT( E/256 ) 


9035 


POKE 16399 , INT( E/ 




256) 


9040 


PRINT M$ 


9045 


POKE 16398, X 


9050 


POKE 16399, Y 


9055 


PRINT "MENSAGEM D 




EFINIDA. " 


Frederica dos Santos Liporace — RJ 



Linha SINCLAIR 



Implemente READ e DATA 

Nao raro vemos em tabelas de compatibilidade de BASIC, entre equipa- 
mentos que usam logicas diferentes, a afirma^ao de que ndo ha correspon- 
dente das fun^Oes READ e DATA nos micros da 16gica Sinclair. A rigor, de 
um teclado para o outro, ndo hi mesmo. Mas MICRO SISTEMAS jd publi- 
cou como conseguir simular estas fun95es (MS n9 25, pdg. 8, na matdria 
“DATA, READ e RESTORE no TK’ ? ). Eis agora uma outra rotina que 
tambem permite a utiliza^o destas instru95es nos micros da linha Sinclair. 

Para executd-la, fa9a primeiro a entrada de dados da listagem 1 com os 
comandos E e M do MICRO BUG. Ao terminar de digitar os cddigos da lis- 
tagem 1 , digite P 4082, 40F9 para obter o resultado 2BDD. Se o resultado 
obtido nao for este, para e reveja os cddigos, pois algum deve estar errado. 

Na listagem 2, o comando RAND USR 16514 corresponde a READ 
AS, ou seja, transfere tudo o que estd na linha REM TO (tudo mesmo, atd 
a virgula) para AS. O Comando REM TO corresponde ao DATA, e 6 a li- 
nha onde deverao ser escritos os AS. 

Para facilitar ainda mais a compreensao, a listagem 2, que 6 um progra- 
ma-exemplo desta dica, tern nas suas principais linhas as seguintes tarefas: 
linha 1 — linha reservada para o programa em LM que estd contido na li- 
nha 7; linha 2 - dimensionada AS com tantos caracteres quantos os do 
maior numero da linha 7; linha 4 — coloca em AS um dos vaJores da linha 
7; linha 7 — contdm os valores que AS assumird (um a um); linha 11 - 
executa a rotina em LM contida na linha 1 . 



LISTAGEM 1 




LISTAGEM 2 



2 LET AS-CHRS 0*CHRS O^CHR* 0 

3 FOR A-16639 TO 16666 

4 RAND USR 16514 

5 POKE A, UAL A* 

6 NEXT A 

7 REM TO 42,12,64,35,14.22,6,32, 
126,203,127,32,4,203,255,24,2,20 
3,191,119,35.16,241,35,13,200,24 
,234 

8 FOR A-0 TO 139 

9 PRINT CHR* <128»INT <RND*64)) f 
* "» 

10 NEXT A 

11 RAND USR 16639 

12 FOR A-l TO 10 

13 NEXT A 

14 RUN 11 



F6bio Policerpo de Oliveira — RJ 


















rodada /MS 



Aquela estaqao de Buga- Buga mandou QLS? Voce sonha com o DXCC basico 
ou j& corre atras do Honor- Roll? Tudo seri mais fdci! agora, com o... 



DXCC cibernetico 



Jorge A. C. Bettencourt Soares 



ste programa foi desenvolvido 
com o objetivo de permitir ao 
radioamador entusiasta do 
DX o controle de sua situa- 
9S0 sobre todos os paises vdlidos para o 
DXCC e, acredito, serd de grande va- 
lia principalmente para aqueles que se 
dedicam ao referido diploma. Com ele, 
voce poderd a qualquer momento obter, 
atravds do prefixo ou nome do pais, a 
sua situa9ao em rela9ao a qualquer dos 
315 paises atualmente vdlidos para o 
DXCC, bem como a esta9ao trabalhada 
ou a que voce jd tenha creditado em al- 
gum dos seus endossos. Serd possivel, 
tambdm, a obten9ao de listagem via im- 
pressora contendo uma rela9ao de prefi- 
xos e paises ou ainda de outra rela9do 
de prefixos, paises e sua situa9§o em re- 
la9do a cada um deles. 

0 programa foi desenvolvido para ro- 
dar em BASIC cassete e utiliza a instru- 
9do DATA para o armazenamento dos 
dados. Os que dispdem de BASIC disco 
poderdo modificar parte do programa, o 
que serd descrito posteriormente. 

Para obter um bom resultado com es- 
te programa, tenha d mdo a lista atuali- 
zada dos pafses da ARRL - a qual ndo 6 
publicada para ndo alongar desnecessa- 
riamente o trabalho — caso ndo dispo- 
nha da mesma, pe9a a um colega ou en- 
vie-me um envelope auto-endere9ado e 
selado (SASE) e terei prazer em remete- 
la. 



RODANDO O PROGRAMA 



A primeira op9do do menu principal 
destina-se ao arquivo de dados. Na pri- 
meira vez em que rodar o programa, vo- 
ce deve completd-lo com os dados dos 



paises da ARRL. Isto 4 feito, segundo 
as instru95es contidas no proprio pro- 
grama, atravds da introdu9ao de declara- 
95es DATA, a partir da linha 1001 (exem- 
plo: 1025 DATA 25 , VK, AUSTRALIA, 
VK 2 DTA, TRABALHADA). £ impor- 
tante numerar as linhas DATA com in- 
tervalos de uma unidade. Isso porque 
quando voce armazenar os dados do ul- 
timo pais, eles estarao na linha 1315 , e 
toda a vez que for necessdria alguma 
modifica9ao, atraves da procura por pre- 
fixo ou pais, voce obterd um numero de 
arquivo no video que somado a 1000 lhe 
possibilitard localizar a linha onde os da- 
dos estlo armazenados. 

A maior precau9do a ser tomada no 
armazenamento dos dados d quanto ao 
comentdrio sobre cada pais. Seja o mais 



suscinto possivel, pois as rotinas de im- 
pressao comportam apenas breves co- 
mentdrios. Voce poderd detalhd-los me- 
lhor, mas serd necessario modificar a ro- 
tina de impressao que os inclui. 

A tftulo de sugestdo utilize NAO 
TRABALHADO, PARA CREDITO, 1 
* CfiDITO, 2 * CRfiDITOS etc. 

As op96es 2 e 3 do menu principal 
destinam-se d procura de dados, quer 
pelo prefixo ou pelo nome do pais de- 
sejado, respectivamente. Voce deverd 
cuidar apenas com a introdu9do correta 
do prefixo ou nome do pais em questdo 
para obter a informa9ao sem ocorrencia 
de erro na execu9ao do programa. 

A op9do 4 destina-se ao armazena- 
mento de dados estatisticos, e o prbprio 
programa lhe orientard na introdu9ao 



AC{30 S0T0A2 10 

4060 G0T04O3O 

4070 CLS:IKPUT"EMTRE COM R DRTR~jDT» 

4080 I MPUT “ENTR E COM R QUPHTIDRDE DE PRISES VRLIDOS PRRR 0 ' D. X . C . C . “ » M 

4070 INPUT “ENTRE COM R QURXTIDRDE DE PRISES TRRBRLHRDOS “ | H 

4100 :nPUT"EKTRE COM R QUflKTIDflDE DE PRISES C0MFIRMRD0S m |0 

4110 I KPUT “ENTR E COM R QURNT I DRDE DE PRISES CREDITRDOS ” | P 

4120 CLS »rORR-lT0200«PRIKT«0, “DRDOS ESTATISTICOS SEHDO GRRVRDOS EM DI3 

CO", 

4130 0PEH”0”,1, "DXCC/EST 
4140 PRXKT81.DT* 

4130 PR I NT 41 , M 
4160 PRIKTtl.N 
4170 PR I NT 41,0 
4180 PRIKT#1,P 
4190 CL0SER1 
4200 G0T04O 

4210 CLSsPRINT"LEITURA DE DRDOS ESTATISTICOS SENDO RERLIZRDR", 

4220 OPEK-I", 2, “DXCC/EST" 

4230 INPUT#2,DT» 

4240 I XP’JT 92 . M 
4230 INPUT82.N 
4260 I NP'JT 92 , 0 
4270 I KPUT #2 , P 
4280 CL0SE92 



Figure l - Modificafoes para uso com BASIC disco 
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INFORMAQOES UTEIS PARA QUEM TEM. OU NAO TEM O MICRO 




AFilcres faz de sua empresa o seu Show Room 

microcomputadores 



! Especialistas em 





levam ate voce toda sua estrutura de Marketing. Conheca 
os CP300 e CP500 aliados ao alto desempenho da Impressora 
P500 e na configuracao exata do seu problema. 




A Filcres oferece aos seus usuarios assistencia tecnica 

■■■ 

autorizada Prologica ■■■ , completa biblioteca 



de software, diversificada linha de suprimentos, alem de 



treinamento gratuito de operacao 
Basic 








e linguagem 




Venha ate aqui, ou ligue que iremos ate voce! 



filcres 

FILCRES ELETR6NICA ATACADISTA LTDA. 
Rua Aurora. 165 - CEP 01209 - S*o Pauk> - SP 
Tel*.: 223 1446 - 220-5794 - 222 3458 
PBX: 223 7388 



LEVE NOSSO SHOW ROOM P/ SUA CASA! 





De PY1DWM 



R ODADA MS, cm nova edisao, traz nova colabora^ao de PY5CIG-Alcione, ende- 
re^ada aos “cagadores de figurinhas”, e que tornara o controle dos paises trabalha- 
dos/confirmados no DXCC verdadeira brincadeiia de crian<;a. A listagem e para os 
possuidores da linha TRS-80 - cassete, mas sao fomecidas todas as dicas para que os 
usuarios de versifo disco possam incrementa-la. 

O programa Codigo Morse a Moda SINCLAIR (cadeo indicative, Jorge?) vem fazen- 
do o maior sucesso nas faixas. Recebemos, de PY2RNJ-Ervin, artigo descrevendo uma in- 
terface facilima de construir, que permite ao programa do Jorge manipular diretamente 
urn transmissor, transformando o seu SINCLAIR em urn “keyboard “Pelo que puder 
ouvir na Rodada do Micro, e de fazer muito “munheca de ouro” ficar de agua na boca. 

Recebemos com muita satisfa^ao, de RENSI Eletronica Digital (leia-se PY2EMI-Re- 
nato e PY2AJM-Sinesk>), uma interface RS 1050/A, para transmissao e recep^aode CW 
atraves de micros SINCLAIR, para ser testada pc la Rodada MS e sorteada entre os nossos 
leitores. 

SORTEIO DAS ASSINATURAS DE MS: em “solenidade” realizada em nossa reda- 
<;io foram sorteados - por nossa "comandante-em-chefe" Alda Campos, por nosso Dire- 
tor-Tecnico Renato Degiovam, e por mim prdprio, os felizes ganhadores das 
assinaturas por um ano de MS: PY2CJM-Maneco, PY3BU-Jason e PYlFO-£vio. 
Na ocasiao, nossa “chefa” Alda manifestou sua satisfa^ao pelo sucesso de nossa promo- 
9 S 0 . que teve o expressive numero de 172 participates de todas as regides radioamado- 
rt'sticas do Brasil, o que comprova a excelente penetra^ao de MS. Nosso muito obrigado a 
todos e cumprimentos aos felizes sorteados. 

Correspondence recebida: de PYIAFA-Gil (Antenna/ Eletronica Popular), de 
PY20NO-Mauri'cio, PY3GJ-SiebeI, PY30V-Ribeiro, PYIXT-Guaracy, PYIDPQ-Bruno, 
PY2VDK-Ibere, PY2UMW-Miguel, PY2VBA-IdeU, PY2CJW-Maneco, PY3IT-Pivatto, 
PY3LL-Deco, PR7AAV-Kleber e PT7-IS-Ilidio, com observacoes, sugestdes e colabora- 
96 es diversas. Acusamos, ainda, a visita a nossa reda^ao de PY3KT-Walter, ocasiao em 
que pode tomar contato com todo o nosso pessoal e sentir o carinho com que MS e feita. 

Vejam no expediente. (pagina 4), uma pequena homenagem a PY2AQO-Luiz, pelo 
excelente trabalho que vem realizando. na divulga^o da RODADA MS e pela efleiente 
condu^ao da rodada ao Micro - todos os nossos elogios e agradecimentos ao Luiz nunca 
estarao a altura de sua dedica^ao. 

Curt am, agora, o trabalho do Alcione e mandem-nos noticias de suas realiza^oes, em 
especial a conquista do DXCC. Fiquem conosco e nao percam a nossa proxima edi^ao. 
HPE CLIAGN 73 ES GL FM PY1DWM 



destes dados, utilizando-se de variiveis 
encontradas entre as linhas 10000 e 
10040. Aqueles que dispuserem de BA- 
SIC disco deverSo utilizar a listagem en- 
contrada na figura 1, desconsiderando 
todas as linhas compreendidas entre as 
linhas 4050 e 4280 da listagem principal. 
Tambdm nio deverao ser copiadas as 
linhas a partir da 9000, pois as mesmas 
s6 produzem efeito para a rotina de da- 
dos estatisticos na versSo cassete. 

A op 9 ao 5 destina-se a listagem em 
impressora. S5o fomecidas as duas lista- 
gens )& descritas anteriormente. 

A op 9 ao 6 s 6 6 execuUvel em BASIC 
disco, e, por fim, a op 9 §o 7 destina-se a 
gravar 0 programa, op 9 ao esta que serd 
utilizada toda a vez que voce modificar 
algum dado. A mesma encontra-se na li- 
nha 7000, e aqueles que possuem BASIC 
disco deverao trocar a instrufSo CSAVE 
por SAVE. 

O programa 6 , sem duvida, trabalho- 
so no que diz respeito a introdufao de 
dados, tendo em vista a grande quanti- 
dade dos mesmos, mas ser£ de grande 
utilidade ao radioamador praticante do 
DX. Por fim, voce poderd otimiza-lo in- 
cluindo, nas instn^oes DATA, outra va- 
ridvel que lhe possibihte, tamb&n, obter 
a dire 9 §o em graus de sua localidade pa- 
ra cada um dos paises armazenados. 



A RODADA MS 4 coordenada por PY1DWM - Roberto Quito de Sant 'Anna. Qualquer 
correspondencia e/ou colaborafdo deve ser enviada aos seus cuidados, para a A v. Presi- 
dent e Wilson. 165. grupo 1210, CEP 20030, Rio de Janeiro. RJ. Contatos diretos via 
Rodada do Micro (7097 KHz, das 16:00 ds 18:00h). Patrulha da Madrugada (7055 
KHz, das 22:00 ds 23:00h) ou pelo telefone (0243) 54-3355, ramal 594. 



Jorge A. C Bettencourt Soares 6 engenheiro 
agrOnomo e trabalha na Coordenadoria de As- 
sistinda Tdcnica Integral da Secretaria de Agri- 
culture e abastecimento, na ddade de Bauru, 
SP. Jd foi programador de um Burroughs B- 
500 no infeio da ddcada de 70 e atualmente 4 
usuirio de um TK85. 



DXCC cibemetico 



0 ■ 

10 'PROGRAMA O.X.C.C. ALCIONE SPERAN0I0 JUNIOR PY3 - CIG. 

20 'RUA SAO LE0P0L00 123 - 80.000 - CURITIBA - PARANA 

30 * 

40 CLSICLEAR200 

30 FORA>OT0127iSET<A,0)iSET(A,10)iSET<A,37) I SET < A , 47 > i NEXTA 
60 PR INT866, "P-Y-5-C-I-G~i IPR INTBV2, ~D-X-C-C“| iPR INT91 13, “Z-Y-5- 
C-I-0” 

70 PR INTCHRS ( 21 ) | l PR INT8322 , "ARQUI VAR 0AD0S -1-" , IPR INT8386 , “PRO 
CURA POR PREFIX0 -2-" , IPR INT9430, “PR0CURA POR PAIS -3-", «PRINT85 
14, "DADOS ESTATISTICOS -4-", lPRINT8378."IMPRESSA0 DE DADOS -3-~| 
IPRINT8642,~DIRET0RI0 -6-"» IPRINT8706, "GRAVAR 0 PROGRAMA -7-"» 

80 PR I NT 8926, " < < C > > Alcion« Spcmndio Junior. "| 

81 F0RA“10T037iSET <0,A>iSET(64,A) tSET ( 127 , A) INEXT 
90 KHf-INKEYS 

100 IFKH*-"1",900 
110 IFKH%“"2~ , 2000 
120 IFKH*-"3",3000 
130 IFKHS-~4~,4000 
140 IFKH*-"3~,5000 
150 IFKM*-"6",6000 
160 IFKH*-"7",7000 
170 G0T090 

900 GOSUBB0O0«F0RA-lT01O0iPRINT8679,"AR«UIW0 DE DAD0S"» INEXTAICL 
S 

910 PRINT-UTILIZAR < DATA > A PARTIR DA LINHA 1001" 

920 PR INT"ENTRE COM OS DADOS 0BDECEND0 A SEGUINTE 0RDEM", 

930 PRINT83B4, "NUMERO DE AR8UIV0"lPRINT"PREFIX0(8>"IPRINT"PAIS"l 
PR INT"C0MENTAR I08"iPR INT"PREFIX0 DA ESTACA0 < CREDITADA - P/CRED 
IT0 0U TRABALHADA >", 

940 PRINTlPRINT IPR INT"PRESSI0NE QUALQUER TECLA"| 

950 IFINKEYS-"",G0T0950 
960 CLS«LIST1001 - 1800 

2000 G0SUB8000lF0RA*lT0100iPR INT8679, "PROCURA POR PREFIX0"| INEXT 
AlCLS 

2010 INPUT"ENTRE COM 0 PREFIXO PARA PROCURA", PPS 
2020 REST0REIFORA-1T032OI0NERRORGOTO2OS5 



2030 REAON.At,Bt,CS,Dt 

2040 IFPPS“LEFTt(A$,LEN(PPS) >*,2060 

2030 NEXTA 

2055 F0RA-1T03OIPRINT864, -PREFIXO NAO ENCONTR ADO" t NEXTA I G0T02010 
2060 CLSiPR INT"PROCURA POR PREFIXO REALIZADA" , IF0RA-0T0I27ISET (A 
,10)«SET(A,35)«NEXTAiF0RA-10T035iSET(0,A)»SET<30,A>iSET<127,A)iN 
EXTA 

2070 PRINT8323,"AR«UIVO N*",lPRINT8387,"PREFIX0<8>",lPRINT8451," 
PAIS" , IPR INT8315,"C0MENTAR I OS" , t PR INT8579 , "ESTACA0< OES > " , 

2080 PRINT8336.N, IPRINT8401 ,At, I PR INT846S ,BS, lPRINT8529.CS, IPRIN 
T8S93.DS, 

2090 PR INT8927 , "MAIS DADOS P/PROCURA SIM OU NAO ?", 

2100 KHt-INKEYS 
2110 IFKHS*"S" , G0T02000 
2120 IFKMS“"N~ .G0T040 
2130 G0T02100 

3000 G0SUB8O0OIF0RA-1T0100IPRINT8679, "PROCURA POR PAIS", INEXTAIC 

CS 

3010 INPUT"ENTRE COM 0 NOME 00 PAIS PARA PROCURA", PPS 

3020 RESTORE * FORA" 1T0320 1 ONERR OR G0T03035 

3030 READN, AS,BS,CS,DS 

3040 IFPPS"LEFTS<8S,LEN(PPS> ) ,3060 

3050 NEXTA 

3055 F0RA«1 T050«PR INT864 , "PAIS NAO ENC0NTRA00"iNEXTAiG0T03010 
3060 CLS»PRINT"PROCURA POR PAIS REALIZADA" , IF0RA-0T0127 ISET ( A, 10 
) iSET ( A , 35> tNEXTAiFORA“10T035«SET <0,A>«SET<30,A)»SET(l27,A)tNEXT 
A 

3070 PR INTS323, "AR4UIU0 N«", IPR INT8387, "PAIS", IPR INT8431 , "PREFIX 
0<S)-,«PRINT8513, "COMENTAR I0S", >PR INT8579 , "ESTACAOCOEB >", 

3080 PR INT8336 , N, iPR I NT 8401 ,BS, IPR INT8465, AS, IPR INT8329 ,CS, *PR IN 
T8593.DS, 

3090 PR INT8927 , "MAIS DADOS P/PROCURA SIM OU NAO ?", 

3100 KHS-INKEYS 
3110 IFKHS"~S" , GOT 03000 
3120 IFKHS""N" , G0T040 
3130 GOT03100 

4000 G0SUB8000lF0RA"lT0100»PRINT8679,"ESTATISTICA", INEXTAICLS 
4010 PR INT"ENTR ADA DE DADOS ESTATISTICOS < 1 >" 

4020 PR I NT "LISTAGEM DE DADOS ESTATISTICOS < 2 >", 

4030 KHS-INKEYS 

4040 IFKHS-"1 " , GOT 04070 

4050 IFKHS-"2" . GOT04280 
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SI NT A NOS DEDOS ESTA CONQUISTA 

DIGIPLEX 




Para pequenas e medias empresas, a DIGITUS langa o DIGIPLEX. Um modulo capaz de formar uma rede local de 
multi-usu&rios, que alem de proporcionar o dinamismo de um CPD tambem simplificara o gerenciamento de sua 
empresa. 

Com v&rios terminals executando programas especificos, a implantagdo do DIGIPLEX proporcionara a sua em- 
presa um aumento da produtividade e qualidade, j& que a interligagdo on line dos terminals permitir^ que se 
trabalhe com dados e informagdes atualizadas. 

Ligados ao DIGIPLEX poderdo estar ate 16 terminais intefigentes, fazendo a contabilidade, controle de estoque, 
vendas e produgdo, malas diretas, estatisticas ou seja, atendendo a todas as necessidades de sua empresa. 



Ravandadoras Aracaitt (079) 224 7776 223 1310 Bauman .011) 421 521' Brasilia (061) 242 6344 248 5359 273 2128 229 4534 Baiam i091) 225 4000 B«o Homonta <031) 223 6947 222 7889 334 2822 344 5506 
— 225,3305 225 6239 Campion (0192) 32 6322 Curitiba (041) 232 1750 243 1731 Ownopolis (037) 221 9800 Furiatza (085) 227 5878 224 4235 224 3923 224 4691 226 4922 Flonanopoiis (0482) 23 1039 For do 
)9 U *C* (0455) 72 1418 Goiinia (062) 223 1165 Joto Pa»*oa (083) 221 6743 JWr da Fora (032) 213 2494 loodnoa (0432) 23.7110 Baca* (082) 223 3979 Monlas Claros 1 038) 221 2599 Nltardi (021) 710 2780 Novo 
Hamburga 1051) 293 1024 Ouro Prato (031) 551 3013 Po«o* da Caldas (035) 721 5810 Porto JUagra (0512) 26 1988 334 0660 21 4189 25 0007 26 1900 Racila (081) 326 9318 221 4995 326 9969 Ribairto Prato 
(016) 636 0586 Rio da Janauo (021) 252 9420 262 2661 292 0033 267 1093 252 9191 541 2345 268 7480 221 8282 288 2650 253 3395 257 4398 222 4515 263 1241 295 8194 247 7842 322 1960 316 4966 
551 8942 Salvador (071) 242 9394 241 6189 Santa Mala (055) 221 9588 Slo Paula (011) 280 2322 815 0099 533 2111 231 3922 258 4411 222 1511 853 9288 Taubata (0122) 32 9807 Vitdrla (027) 223 5147 
223 5610 






DXCC cibern£tico 



e-s-t-a-t-i- 



4060 OOT04O3O 

4070 CLSiF0RA-0T063iPRINTCHRS<95)»iNEXTA 
4080 PR INT"I-N-S-T-R-U-C-0-E-S P-A-R-A O-A-D-O-S 
S-T-I -C-0-8" » 

4090 00SUB90O0 1 PRINT 1 PRINT 

4100 PRINT"0* dado* **t*tl*tlco» d* *ua catacao ca ralacao ao* p 
•I*c*"iPRINTiPRINT"v* 1 Ido* para o D.X.C.C. »*rao ar«az«nado* atr 
a vc* da* var t awe I *"iPR INT iPR INT"su* encontraa-** na* 1 inha* » «P 
RINTiPRINT"l 0000 - 10010 - 10020 - 10030 - 10040" *PR INT 
4110 PRINT-PRESSIONE BUALBUER TECLA"lG0SUB9000 

4120 IFINKEYS-""4120 . . 

4121 CLS«00SUB9000iPRINTiPRINT"< 10000 > Data do ultlao rc^iatro 
" i PRINT i PR INT" < 10010 > Buantldad* d* pai*c* valido* P«r* ° *>.X. 
C.C."«PRINTiPRINT"< 10020 > Buantldad* d* pal*** trabalhado* «P 
R INT iPRINT"< 10030 > Buantidade d* pal*e* conflraado*" 

4122 PR INTiPR INT"< 10040 > Buantidade d* paisc* crcdltado* iPRIN 
T"Mod i f I qua-a* toda a vez que houver qualqucr alteracao ca relac 
aoao **u O.X.C.C."»PRINTiPR INT"PRES8I0NE BUALBUER TECLA" 

4124 IFINKEYt-~"4124 

4125 CL8 1 GOSUB9000 1 L I ST 1 0000-1 0040 

4290 CLs'iF0RA«0T0127iBET<A, 0> iSET(A, 10) I8ET< A,47> INEXTAIF0RA-0T0 
47iSET(0,A)lSET<127,A> l NEXT 

4300 PR INT966, "0-X-C-C DADOS ESTATI8TIC0S" % IPR INT8130, ESTACA 
0 P- Y-5-C-I -0" » 

4310 PR INTB258, "DATA 00 ULTIMO REGISTRO ",0T», 

4320 PRINT83B6, "RAISES VALIDOS " , USING"***" » M , IPR INT8450 , PA 

ISES TRABALHAOOS " »USING"*««" i N» iPR INT8514 , "PAISES CONFIRMADOS 
•USING"***" |0| iPR INT8578 , "RAISES CREDITAOOS " , USING"***" ,P | 

4330 PRINT8418, "RAISES A CONFIRMAR " ,USING"*»«" »N-0» IPR INT8482. 
PAISES A TRABALHAR " |USING"«**" |M-N, IPR INT8546 , "RAISES A CREDITA 
R " i USING"***" |0-P | 

4340 PR INT8898 , "P AR A RETORNAR AO MENU OIGITE 08 TECLA" | 

4350 IFINKEYS-"",G0TO435O 
4360 G0T040 

5000 GOSUB8000iFORA«lT0100*PBINT8679,"IMPRESSAO"| INEXTAICLS 

5010 PRINTlPR INT"LISTAGEM A.R.R.L <1>" 

5020 PRINT"LISTAGEM A.R.R.L COM COMENTAR IOS <2>" 

5030 DXt-INKEYS 
5040 IF0Xt-"l",G0T05070 
5050 IFDXS-"2" , G0T0521O 
5060 G0T05O30 

5070 CLSlPR INTCHRt (23) j 8256 , "PREPERE A IMPRESSORA"«PR INT~APOS PR 
EPARA-LA DIG << C )>"« 

5080 PYt-INKEYi 

5090 IFP YS-"C" , G0T051 10 

5100 G0T05O80 



5110 LPRINT" 



5120 LPRINT"LISTAGEM A.R.R.L. O.X.C.C. 
5130 LPRINT- 



5140 LPR INT"P-R-E-F-I-X-0 <S>"| ILPRINTTAB <25) , "P-A-I-S-E-S" 

5150. LPRINT" 

5160 LPRINTILPQNT 

5170 REST0REIF0RA-1T0320 

5180 RE AON , At , 8S ,Ct , DS ILPR INTT AB < 0 > i AS , • LPR I NT TAB ( 25 ) t Bt > ONERROR 
G0TO40 ■ NEXT A 

5190 LPRINT ILPR INT 

5210 CLS»PRINTCHR*<23>, 8256, "PREPARE A IMPRESSORA"iPRINT"APOS PR 
EPARA-LA OIG. << C ) >" 

5220 PYS-INKEYt 

5230 IFPYt-"C",G0T05250 

5240 00T05220 

5250 



5260 LPRINT-O.X.C.C. RELACAO A.R.R.L CONTENOO PREFIXOS, PAISES E 
COMENTAR IOS" 

5270 LPRINT" 



5280 LPR INTTAB <0> | "P-R-E-F-I-X-01 8>", »LPR INTTAB <25> | "P-A-I-S-E-S 
" I ILPRINTTAB <55 > j "COMENTAR IOS" 

5290 LPRINTILPRINT 

5300 RESTORE i FORA" 1 T0320 I RE AON, At ,BS,CS,DSiLPRINTTAB<0>|At|lLPRI 

NTTA8 < 25) |8%i ILPR INTTAB <55) »Ct I0NERR0RG0T040 INEXTA 

6000 00SUB8000iF0RA-lT0100iPRINT8679,"DIRET0RI0"» INEXTAICLSIPRIN 

T-DIRETORIO - BASIC <1> - C.M.O <2>"» 

6010 KHt-INKEYS 

6020 IFXHt-"l",G0T06050 

6030 IFKHS""2", GOT06060 

6040 G0T06010 

6050 CLSiCMO~DIR"iENO 

6060 CMO"DIR"l CM0"8" 

7000 G0SUB8000IF0RA"1T0100IPR INTS679, "GRAVANDO 0 PROGRAMA" , ICSAV 
E"OXCC" IFOR A“lT0100lPR INT8679 , "PROGR AMA GRAUAOO ",INEXTAIP 

RINT8675," -,IG0T070 

8000 POKE 16035, 244 1 POKE 16036, 245 1 POKE 16037, 246 1 RETURN 



9000 F0RA“0T063 IPR INTCHRt < 95 > * * NEXTA I RETURN 
10000 DTt-~00/00/00" 'DATA ULTIMO REGISTRO 

.10010 M-000 ’BUANT IDADE OE PAISES VALIDOS 

10020 N=000 'BUANTIDADE DE PAISES TRABALHADOS 

10030 0-000 'BUANT IDADE DE PAISES CONFIRMADOS 

10040 P-000 'QOANT IDADE DE PAISES CREDITADOS 

10050 RETURN 



A GUARDIAN GARANTE 
ENERGIA A TODA PROVA. 




GERADOR ELETRONICO GERATRON: 
A PROVA DE FALHAS. 

Fornece energia para microcomputado- 
res da linha Apple e TRS-80, em casos 
deemergdncia. Capacidade de 200 VA. 
com autonomia de at6 90 minutos. 

ESTABIUZADORES DE TENSAO 
GUARDIAN: A PROVA DE 
FLUTUAQdES E TRANSIENTES. 

Ultra-rapidos, protegem o seu CPD con- 
tra variagOes da rede em at6 +22% e es- 
tabilizam a saida em + 1 % . Incorporam 
filtro na entrada. transformador isolador 
e chave de transference para a rede . Ca- 
pacidade de 0,25 KVA a 100 KVA. 




SISTEMA NO BREAK GUARDIAN: 

A TODA PROVA. 

£ a solugao mais completa contra tran- 
sientes, flutuagOes e falta total de ener- 
gia. A Linha B4sica varia de 2,5 KVA a 
100 KVA. DispOe de chave estatica de 
saida e utiliza tOcnica de sintese da for- 
ma de onda senoidal, com tiristores. 

A Linha Econdmica 6 a solugao para 
CPD's de pequeno porte. com capacida- 
de de 0,25 KVA a 5 KVA. 

N3o deixe que a m3 qualidade da energia 
eldtrica estrague os seus programas. 
Ligue agora mesmo para a Guardian. 



GUARDIAN 



Equipamentos EletrOnicos Ltda. 

Rua Dr. Gamier, 579 
Rio de Janeiro -CEP 20 971 
Rio PABX (021) 261-6458 - (021) 201-0195 
Telex: (021) 34 016 
S3o Paulo (011)270-3175 

REPRESENTANTES EM T0D0 0 BRASIL 













CP 400 COLOR 



f«r 



^ QUEM TEM UM,TEM FUTURO. 



VOCfc TEM QUE ESTAR PREPARADO 
PARA SE DESENVOLVER COM OS 
NOVOS TEMPOS QUE ESTAO AL E 0 
CP 400 COLORE A CHAM DESSA 
EVOLligAo PESSOAL E PROFESSIONAL. 





POR QUfi? 

PORQUE 0 CP 400 
COLOR EUM 
COMPITADOR 
PESSOAL 
DE TEMPO 
LNTEGRAL: UTIL 
PARA A FAMflJA TODA, 0 D1A 
LNTEIRO. 

NA HORA DE SE DIVERTIR, POR 
EXEMPLO, t MUITO MA1S 
EMOQONANTE PORQUE, ALEM DE 
OFERECERJOGOS INEDITOS, 

E 0 UN1C0 COM DOIS JOYSTICKS 
ANALOGICOS DE ALTA 
SENSIBDJDADE, QUE PERMITEM 
M0Y1MENTAR AS IMAGENS 
EM TODAS AS DIREgOES, MESMO. 

NA HORADETRABALHARE 
ESTUDAR, 0 CP 400 COLOR MOSTRA 
SEU LADO SERIO: MEMORIA 
EXPANSfVEL, PORTA PARA COMU- 
NICAgAODE DADOS, SAlDA PARA 
IMPRESSORA E UMA OTLMA NITIDEZ 
COM IMAGENS C0L0R1DAS. 

COMO SE TUDO ISSO NAO 
BASTASSE, A PROLOGICA AINDA 
OFERECE A GARANTIA DE 
QUALIDADE DE QUEM t LIDER NA 
TECNOLOGIA DE COMPUTA- 
DORES, E 0 PREgO MAIS ACESSfVEL 
NA CATEGORIA. 

NUMA FRASE: SE VOC£ NAO 
QUISER CHEGAR ATRASADO AO 
FUTURO. COMPRE SEU CP 400 






COLOR LMEDIATAMENTE. 

EViOQAO E INTELIGENCLA NIIM 
EQIIPA.ME.NTO S6. 

• IMAGENS COM ATE 9 CORES. 

• OTIMA RESOLUgAO: 49.152 PONTOS. 

• DUAS VERSOES A SUA ESCOLHA: 

16K OU 64K DE MEMORIA RAM. 

• MEMORIA RAM EXPANSfVEL: VOCfi 
COMECA COM 16K E PODE CHEGAR 
Alt 64K COM DISQl'ETES. 

• ITITLIZA CARTUCHOS PARA APUCA- 

TIVOS EJOGOS: 
BANCO DE DADOS, 
EDITOR DETEX- 
TOS, PLANILHAS 

eletrQnicas, 

GRAFICOS, 

ENTRE OUTROS. 

• memQria 

EXTERNA EM 
CASSETE OU DLSQIJETE (ESTE, 
DISPONfVEL EM DEZEMBRO). 

• PORTA RS 232 C LNCORPORADA, 
PERMTIINDO COMUNICAgAO 
DE DADOS F. IJGAgAO DIRETA A 
IMPRESSORA 
SERIAL. 

• PERMITE COM- 
PETigAO DE 2 
JOG ADORES AO 
MESMO TEMPO. 

SEUS JOYSTICKS 
ANALOGICOS 
OFERECEM INF1- 
NITAS POSigOES 



NA TELA. ENQUANTO OUTROS TfiM 
SOMENTE 
8 DIREgOES. 

• GRANDE QUAN1 
DADEDE 
PROGRAMAS 
ADISPOSigAO: 

APUCATIVOS 
PESSOAIS, PROFLS- 
SIONAIS EJOGOS. 



VEJA. TESTE E COMPRE 
SEU CP 400 COLOR NOS MAGAZINES 
E REVENDEDORES PR0IX3GICA. 

■■■ PROLOGICA 

raj A microcomputadores 
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pagar, fa z sua programacao financeira, 
efetua a folha de pagamentos e 
administra minuto a minuto as suas 
atividades. 

Detalhe importante: o novo 
TK 2000 II, com Multicalc, pode 
intercambiar plamlhas com 
computadores da linha Apple® 

E, como todo business computer 



Apresentamos o 

TK 20001 
Ee roda o pragrama 
mais famoso 
do mundo. 



De hoje em diante nenhuma 
empresa, por menor que seja, pode 
dispensar o TK 2000 II. Por que? 

0 novo TK 2000 II roda o 
Multicalc : a versao Microsoft do 
Visicalc? o programa mais famoso em 
todo o mundo. 

Isto significa que, com ele, voce 
controla estoques, custos, contas a 



que se preza, ele tern teclado 
profissional, aceita monitor, diskette, 
impressora e ja vem com interface. 

Alem de poder ser ligado ao seu 
televisor (cores ou P&B), oferecendo 
som e imagem da melhor qualidade. 

Portanto, peca logo uma 
demonstracao do novo TK 2000 II, nas 
versoes 64K ou 128K de memoria. 

A mais nova estrela do show 
business s6 espera por isto para 
estrear no seu negbcio. 

Preco de lancamento* (128 K): 

Cr$ 1 .949.850 
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computadores pessoais 
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• Suato a ateracao san prfcr area 



® Marca registrada da Visicorp. Filiada 4 ABICOMP ® Marca reyisirada da Apple ZoA\w. 




